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Dear  OFF-AXIS  Program  Users : 

The  OFF-AXIS  program  is  a  coded  model  of  laser  beam 
propagation  through  single  scatter  atmospheres.  The  pro¬ 
gram  was  developed  at  Hughes  Aircraft  for  the  National 
Security  Agency.  At  MIT  the  program  was  modified  and 
expanded  to  include  performance  analysis  of  off-axis 
digital  communication  receivers. 

The  performance  analysis  added  at  MIT  takes  the  form 
of  upper  and  lower  bounds  on  the  probability  of  bit  error. 
These  calculations  occur  in  a  Mode  6,  parallel  to  Modes 
1-5  in  the  terrestrial  link  analysis.  The  modifications 
to  the  original  program  are  mainly  the  inclusion  of 
additional  input  parameters  necessary  for  performance 
analysis  and  the  transfer  of  control  to  the  new  Mode  6. 

The  major  work  of  the  study  is  contained  in  two  sub¬ 
routines,  ERROR  and  APERTR. 

Section  I  of  this  document  contains  the  original  pro¬ 
gram  documentation  written  at  Hughes.  Modifications  and 
additions  made  at  MIT  are  noted.  Section  II  contains  a 
sample  run  of  the  program.  Section  III  is  a  listing  of 
the  modified  program  as  run  on  MIT's  Multics  system. 
Changes  from  the  original  Hughes  code  are  highlighted  with 
comments . 

Section  IV  is  a  user's  manual  for  the  subroutine 
ERROR.  This  is  the  subroutine  that  calculates  the  bounds 
on  the  probability  of  error.  The  background  for  these 
calculations  is  presented  in  my  thesis,  "Performance  of 
Off-axis  Optical  Communication  Receivers  in  Scattering 
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Atmospheres"  (MIT  MS  thesis  1980). 


Section  V  contains  documentation  for  the  subroutine 
APERTR.  This  subroutine  calculates  if  there  is  enough 
aperature  averaging  to  ignore  the  effects  of  turbulence 
induced  fading  in  the  clear  atmosphere  betweeen  the 
scattering  volume  and  the  off-axis  receiver.  Such  fading 
would  degrade  the  performance  of  an  off-axis  receiver. 

If  at  a  later  date  there  are  questions,  feel  free  to 
contact  me  at  my  new  location: 

Bell  Laboratories,  Big  WB 
Crawford  Corners  Road 
Holmdel,  N.J.  07733 


Sincerely, 


William  Jaeger 


Though  it  does  not  effect  program  operation, 


The  noise  (variance)  of  the  outpu 
due  to  dark  current  events  is 
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The  dark  power,  P^,  is  the  average  power  that  if  applied  to  an  ideal 
detector  would  give  rise  to  the  average  (DC)  dark  current,  i^. 
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Thus  the  correct  expression  for  Nfl  (equation  2-9)  is 


Nd  “  2id<lGFBRI< 


and  the  correct  expression  of  NEP  (equation  2-12)  is 
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Due  to  fundamental  differences  in  the  underlying  statistics 
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(U)  Attempts  at  establishing  realistic  error  bounds  on  the  data  reviewed  were 
aggravated  by  die  fact  that  there  was  in  many  instances  inadequate  data  to  establish 
a  meaningful  standard  deviation.  A  sensitivity  analysis  has  instead  been  suggested 
wherein  the  computer  program  is  used  to  establish  the  significance  of  extreme  var¬ 
iations  to  parametric  values  in  those  cases  where  reasonable  bounds  are  difficult  to 
predict. 
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Section  2  -  Data-Base  Review  and  Model  Formulation 
Subsection  B  -  Scenario  Characterization 

1.  CHARACTERIZING  AN  OPTICAL  COMMUNICATIONS  LINK 

The  ECKSTROM  computer  program  has  been  designed  to  model  the  vulnerability  o£  speci¬ 
fic  optical  links.  This  discussion  outlines  those  parameters  which  must  be  considered  to  de¬ 
scribe  the  overall  system  and  site  to  be  modeled. 


(€) i.  In  order  to  establish  the  vulnerability  of  an  open-beam,  optical  communicrtions 
link  to  detection.  ,  the  basic  characteristics  of 

the  link  design*  of  its  geometry,  and  of  its  environment  must  be  specified.  These 
basic  characteristics  are  illustrated  in  Figure  2-1  where  a  transmitter,  receiver, 
and  link  surroundings  are  depicted  in  an  arbitrary  scenario. 

(U)  Basic  transmitter  parameters  which  must  be  specified  are  the  operational  op¬ 
tical  wavelength  \,  the  peak  optical  output  power  P0  at  the  transmitter  exit  aperture, 
the  diameter  of  the  exit  aperture  Dp,  the  angular  spread  of  the  optical  beamo^,  and 
the  modulation  format  employed.  If  the  system  is  diffraction  limited,  the  beamspread 
can  be  specified  in  terms  of  the  wavelength  and  exit  aperture  diameter,  but  this  is 
not  usually  the  case.  However,  the  diffraction  limit  does  set  a  lower  limit  to  beam- 
width.  Receiver  parameters  of  interest  include  the  entrance  aperture  diameter  Dr, 
the  detector  field  of  view  pr,  and  whether  direct  or  heterodyne  detection  is  emr-loyed. 
These  parameters,  however,  are  of  only  secondary  importance. 

The  system  modulation  format  is  quite  significant  whet 
considered.  The  optical  source  may  be  either  continuous  wave  (CW)  or  pulsed,  and 
either  analog,  pulse,  or  digital  modulation  may  be  used.  Moreover,  the  carrier  may 
be  modulated  in  amplitude  (or  intensity),  frequency,  phase,  or  polarization,  or  one  of 
a  number  of  pulse  modulation  formats  (such  as  pulse  position  modulation)  may  be 
employed.  Pratt  [2-1  ]  considers  an  extensive  list  of  possible  modulation  formats. 

(U)  Because  of  the  wide  .diversity  of  possible  formats,  we  will  initially  restrict  at¬ 
tention  to  three  basic  types.  This  number  can  be  extended  in  the  future  as  found 
necessary.  The  three  types  include  CW  intensity  modulation,  pulse-code  intensity 
modulation,  and  CW  frequency  modulation  (requiring  heterodyne  detection).  Fr  r  both 
CW  and  pulse  systems  the  link's  information  bandwidth  B  and  the  depth  of  mod”iation 
M  must  be  specified,  and  for  pulse  systems  the  pulse  duration  t  must  be  specfied. 

(U)  Two  important  aspects  of  a  system  not  to  be  found  on  vendor  data  sheets  are 
the  optical  quality  of  the  transmitter  optics  and  the  reflection  characteristics  of  the 
receiver.  These  factors  are  considered  in  detail  in  subsequent  discussions  of  the 
link  scattering  and  reflection  models. 

(U)  Geometrical  aspects  of  the  link  include  the  range  Z  of  the  link  and  the  respec¬ 
tive  heights  above  ground  level  of  the  transmitter  and  receiver,  ht  and  hr.  The 
heights  are  significant  because  of  the  variation  in  atmospheric  scattering  and  ab¬ 
sorption  coefficients  with  altitude  and  the  variation  of  turbulence  effects  with  altitude. 
Atmospheric  turbulence  causes  spreading  of  the  transmitted  beam. 

Site  characteristics  include  local  meteorological  conditions  and  physical  char¬ 
acteristics  of  the  link  environment.  Weather  conditions  will  effect  changes  in  atmos¬ 
pheric  scattering,  absorption,  and  turbulent  beam  spreading.  Temperature,  -dative 
humidity,  atmospheric  pressure,  and  visibility  are  weather  condition  descrip i»rs, 
but  it  has  been  found  that  such  parameters  are  difficult  to  functionally  relate  to  the 
significant  effects.  General  meteorological  descriptors  as  documented  by  the  Air 
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Force  Geophysics  Laboratories  (AFGL)  have  been  found  to  be  more  appropriate. 
Important  physical  characteristics  identified  include  the  presence  of  window  panes 
in  front  of  either  the  transmitter  or  receiver,  or  both,  the  presence  of  trees  or 
foliage  along  the  beam  path,  and  the  nature  and  orientation  of  the  backstop  at  the  re¬ 
ceiver.  The  backstop  is  a  primary  source  of  scattering,  and  window  panes  or  foliage 
will  act  as  secondary  but  perhaps  significant  sources  of  scatter.  The  ground  itself 
may  also  be  a  significant  source  of  reflection. 

(U)  Models  for  each  of  these  effects  are  considered  in  the  scattering  analyses  to 
follow. 
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Figure  2-1.  (U)  A  Depiction  of  the  Basic  Characteristics  of  an  Open-Beam  Optical  Communications 
link  (U) 


Section  2  —  Data-Base  Review  and  Model  Formulation 
Subsection  B  -  Scenario  Characterization 


This  discussion  provides  a  general  overview  of  the  basic  parameters  which  must 
be  specified  in  order  to  properly  characterize  a  er.  A  more  ex¬ 

tensive  receiver  investigation  is  presented  in  Section  5,  including  the  fundamental  con¬ 
sideration  of  detector  sensitivity,  not  discussed  here. 

There  are  numerous  tradeoffs  necessary  in  determining  an  optimum 
receiver  design.  However,  most  of  them  are  unimportant  with  regard  to  computer 
modeling  except  insofar  as  they  may  complicate  the  surveillance  problem.  For  ex¬ 
ample,  whether  optical  components  are  refractive  or  reflective  is  unimportant  in  this 
regard.  For  computer  modeling,  the  receiver  used  for  off-axis  detection  is  therefore 
specified  only  in  terms  of  its  pertinent  system  design  parameters  and  its  geometrical 
relation  with  respect  to  the  link.  Significant  parameters  are  diagrammed  in  Figure 
2-2  assuming  a  simple  refractive  system. 

The  area  As  of  the  :  aperture,  assumed  circular,  must  be 

specified.  From  the  int  of  view  this  area  should  be  maximized,  but 

it  is  limited  by  practical  considerations  such  as  cost,  weight,  transportability,  and 

.  Another  design  parameter  of  Importance  is  the  system 
solid  angular  field  of  view  fls.  fis  is  given  by 

■«s  «  aa/f2  (2-D 

where  as  is  the  area  of  the  system's  optical  detector,  assumed  rectangular,  of  linear 
dimensions  dgh  and  dgy,  and  f  is  the  effective  system  focal  length.  The  focal  length 
is  in  turn  related  to  the  system  aperture  diameter  Ds  and  focal  ratio,  or  f-number 
(f#),  by 


f  =  D„  f#  (2-2) 

Since  there  are  practical  limitations  on  the  size  of  detectors  and  system  f-numbers, 
it  is  best  to  specify  ag  and  f#,  and  to  then  specify  Qs  in  terms  of  them.  Characteris¬ 
tic  detector  sizes  are  given  in  Section  5.  A  minimum  f-number  of  unity  is  realistic, 
but  values  much  lower  than  unity  are  very  difficult  to  attain.  Hence,  from  (2-2)  and 
(2-3) 

Qs  =  W*2'  (2-3) 

Use  of  (2-3)  will  avoid  the  user's  specifying  an  unrealistic  threat  in  the  model.  The 


heterodyne-detection  system.  For  a  general  discussion  of  optical  heterodyne 
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Section  2  —  Data-Base  Review  and  Model  Formulation 
Subsection  3  —  Scenario  Characterization 


(y~)  Geometrical  aspects  of  Importance  relating  an  optical  link  and  a  nearby 

receiver  are  shown  in  Figure  2-3.  The  location  at  the  o-Pl- s  :  i* 

specified  with  respect  to  the  transmitter  and  link  ams  in  terms  of  2,  and  Xg.  Its 
location  may  alternatively  be  specified  in  terms  of  s+,  5-j-  Rt>  or  Ry,  defined  as 
shown.  The  ...  Receiver  is  always  assumed  to  be  pointed  in  a  direction  which 

intercepts  the  link  axis,  the  orientation  being  specified  by  either  9i,  the  angle  of  inter¬ 
cept,  or  Zj.  R.  is  the  from  the  axial  point  of  intercept  and  the  surveillance 

receiver. 

<y  )  The  linear  receiver  field  of  view  shown,  9  s^,  is  given  by 

®sh  *  dsh/L  ^ 

This  is  the  field  at  view  along  the  axis,  usually  horizontal  (hi.  The  linear  field  of 
view  perpendicular  to.  the  link  axis  is 

-  v*>  «-5> 

usually  vertical  (v).  The  field  of  view  6S^,  however,  establishes  what  portion  of  the 
beam  Is  under  surveillance.  By  rotating  the  receiver,  that  is,  varying 

9i,  the  transmitter,  link  path,  and  receiver  may  in  turn  be  monitored.  If  is  suf¬ 
ficiently  large,  then  all  three  sources  of  scattered  radiation  may  simultaneously  be 
monitored,  a  case  which  can  be  analyzed. 

X-j  Because  of  the  variation  of  atmospheric  effects  with  altitude,  die 

receiver's  altitude  is  also  important.  Such  a  variation  is  allowed  in  die  program,  the 

geometry  of  which  is  described  in  Section  3. 

u  ~  Although  the  use  of  a  Large  field  of  view  ®3jj  may  allow  more  scattered  energy 
to  be  collected,  dispersion  effects  may  lead  to  limitations  if  message  intercept  is 
attempted.  The  dispersion  effects  result  because  of  ±e  relative  size  of  the 
receiver  field  of  view.  For  example,  two  photons  emitted  simultaneously  from  the 
transmitter  may  be  scattered  from  the  two  Points  A  and  3  of  Figure  2-3  into  the  re¬ 
ceiver.  The  difference  in  the  two  path  lengths  results  in  a  difference  In  die  time  of 
arrival  at  the  two  photons.  The  response  of  the  receiver  will  therefore  be  degraded 
Pulses  will  be  spread  in  time  and  CW  modulated  sources  distorted  The  amount  of 
distortion  is  determined  by  convolving  the  resulting  point  spread  function  with  the 
actnal  signal.  It  is  sot  clear  at  what  point  the  waveform  is  degraded  beyond  recog¬ 
nition,  but  distortion  is  clearly  more  severe  for  wider- band  signals.  R  is  particularly 
severe  in  the  very  vt de-band,  space-to-ground  scenario,  in  which  case  the  two  points 
A  and  3  may  be  very  far  apart.  No  provision  is  made  in  the  computer  program 
highlight  this  limitation,  and  die  user  must  consequently  be  aware  that  the  limitaicn 
exists. 


Figure  2-3  Basic  Parameters  Describing  ehe  Geometrical  Interrelationships  Between  an  Optical 
Comnnmicarions  Link  and  a  Receiver 
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Section  2  -  Data-Base  Review  and  Model  Formulation 
Subsection  C  -  Modeling  die  Detection  Process 

1.  SIGNAL-TO-NOISE  RATIO  USING  DIRECT  DETECTION 

(XT)  A  sigsal-to-aoise  relationship  Is  developed  In  terms  of  detection  system  NEP,  with  vari¬ 
ables  to  account  for  the  effects  of  modulation. 


(U)  Given  an  optical  detector,  Its  sensitivity  must  be  established  In  tanas  of  the 
signal  power  available  and  the  noise  power  present.  This  discussion  outlines  the 
equations  and  associated  parameters  being  used  for  calculating  the  ratio  of  plus 
noise  to  noise  {(S  +  N)/N)  for  direct-detection  receivers.  The  approach  presented  is 
in  substantial  agreement  with  those  of  Anderson  and  McMurtry  [  2-3],  Pratt  [2-1],  and 
Melchior,  Fisher,  and  Arams  [2-4]. 

(TT)  The  signal  power  generated  across  a  load  resistor  Rr,  at  the  output  of  an  optical 
detector  subsystem  due  to  incident  optical  power  ?  is  given* by 


3  «  (G  rjqXAc^PTR-  (2-€- 

where  \  is  the  wavelength  of  the  optical  signal,  q  is  the  electronic  charge,  h  is  Planck’s 
constant,  c  is  the  speed  of  light,  n  is  the  quantum  efficiency  of  the  phomdetector  at  the 
specified  wavelength,  and  G  is  its  gain.  The  term  in  parenthesis  is  simply  the  detector 
responsivity,  usually  given  in  units  of  amperes  per  watt.  The  gain  G  Ls  unity  for  many 
photodetectors  of  interest,  but  it  is  included  to  account  for  die  use  of  avalanche  photo¬ 
diodes  or  photoexnissive  devices  sudd  as  photomultipliers. 

(XT)  The  average  noise  power  N  associated  with  the  photodetection  process  arises  from 
four  basic  sources.  That  is. 


'  N  *  Ns*Nb  +  Nd+Xt 


(2-r, 


where  Ns  and  are  signal-generated  and  background-generated  shot  (or  generaticn- 
recomtiaadon)  noise  components  respectively,  N4  Is  detector  dark-current  shot  noise, 
and  N+  is  thermal  noise  in  die  detector-preamplifier  system.  We  emphasize  inclusion 
of  preamplifier  noise  since  in  some  instances  a  detection  system  may  be  preamplifier- 
noise  limited,  and  noise  calculations  must  account  for  total  system  noise  and  not  only 
those  sources  arising  from  the  photodetector  Itself. 

(U)  The  externally  induced  noise  components  Ns  and  are  given  by 


Ns,b  "  (2G2rrq2AAc)P3<bF3SL  (2-?) 

where  refers  to  either  signal  power  ?s  averaged  over  a  period  1/B  or  background 
power  P-0;  F  is  an  excess  noise  factor  accounting  tor  noise  induced  by  the  mechanism 
providing  the  gain  G;  and  3  is  the  electrical  bandwidth  of  the  detection  system.  The 
background  power  Pb  may  arise  from  reflected  or  scattered  solar  radiation  from  the 
terrain,  sky,  clouds,  or  other  background  within  the  detector  f  eld  of  view,  or  it  may 
arise  from  blackhody  emissions  of  the  300  S  surroundings,  depending  on  the  optical 
wavelength.  The  excess-® Ise  factor  F  is  unity  for  poo® detectors  with  unity  gain. 


0 
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(XT)  Internal  system  noise  due  ts  dark  current  is  given  by 
Nd  * 

Dark  current  is  due  to  detector  a  airing  in  some  instances,  and  in  some  instances  it 
is  caused  by  thermal  radiation  incident  on  the  photodetecsor  from  detector  enclosure 
surfaces  (usually  minimi  zed  by  cryogenic  cooling).  Thermal  (Johnson)  noise  is 
given  by 


Nt  -  4kT3  (2-10) 

where  k  is  Boltzmann's  constant  and  T  die  effective  detection-system  temperature. 

(U)  in  lieu  of  specifying  detection  system  dark  current,  load  resistance,  and  effective 
temperatnre  (preamplifier  and  load  temperature  may  differ  from  detector  temperature) 
it  is  more  expedient  to  specify  system  internal  noise  characteristics  in  terms  of  noise- 
equivalent  power  (NEP),  a  measurable  quantity  frequently  specified  by  vendors  which 
lump*  the  noise  characteristics  of  the  detector -preamplifier  combi  nation  into  a  single 
number.  The  NEP  is  the  optical  power  necessary  to  provide  a  signal-to-intemal-noise 
ratio  of  unity  normalized  to  a  1  Hz  bandwidth.  That  is. 


S 


(GnqX/hc)2  (NEP)2^ 
2qid  +  4kT 


(2-11) 


Solving  for  NEP, 

NEP 


(he/  Tja  \)  [2qi<iF  +  4kT/G2RL] 


1/2 


(2-12) 


(U)  NEP  as  it  is  sometimes  specified  may  also  account  for  background  noise.  How¬ 
ever,  since  background  noise  at  visible  and  near-infrared  wavelengths  is  a  variable 
depending  on  Held  of  view,  time  of  day,  background  type,  and  other  highly  varying 
conditions,  such  a  parameter  is  impossible  to  genetically  specify.  Consequently,  the 
NEP  values  used  in  evaluating  a  system  should  be  system  parameters,  assumed 
measured  with  the  detector  aperture  covered;  that  is,  without  background.  Such  an 
assumption  leads  to  no  difficulty  except  with  regard  ts  photocooductive  detectors,  whose 
sensitivity  Is  dependent  upon  the  background  level.  However,  these  detectors  are  only 
used  at  iuft-ai’ii  wavelengths  where  the  highly  varying  solar  component  is  negligible. 

Another  important  aspect  of  the  system  NEP  of  (2-12)  is  its  dependence  on  load 
resistance,  another  variable  subject  to  design  variations.  However,  for  the 
modes  of  interest  consideration  can  be  restricted  to  two  cases:  for  link  detection  the 
win  be  large,  so  that  thermal  noise  is  small  and  dark  current  dominates;  and  for 
«*griai  demodulation  and  message  i  small  load  is  generally  required  because 

of  RC  -  constant  limitations  on  bandwidth,  so  that  thermal  noise  win  be  dominant, 
usually  requiring  a  detector  with  high  gain  G  to  overcome  it.  These  cases  correspond 
to  the  narrow-bud  and  wide- band  cases  respectively,  discussed  in  Section  S. 

:  J)  Using  (2  -6)  -  (2-10)  and  (2-12),  an  overall  signai-co— aoise  ratio  (SNR)  can  be 
specified  in  the  relatively  simple  form 
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(XI) 


s 

N 


(2hc/rj  X)  F3  (P 


+  P^  +•  (NEP)^ 


(2-ir* 


from  which  (S  +■  N)/N  can  be  specified,  i.e. , 


(2-14) 


~  The  specification  of  the  optical  power  P  in  (2-13)  depends  on  whether  liric  detec¬ 
tion  or  message  .....  is  to  be  examined.  For  link  detection  of  CW  signals  carrier - 
to-ooise  ratio  is  the  signal  quantity  of  interest,  and  ?  corresponds  to  die  average  optical 
power  the  period  1/B  regardless  **  *«  modulation  type.  Thns_P  -  ?3,  and  a  very 

narrow  bandwidth  can  be  assumed  for  the- _ r. _ :  e  receiver.  About  0. 1  Hr.  is 

technically  feasible,  though  requiring  aspradmately  10  sec  for  integration.  Fot  pulsed 
systems  P9  is  given  by  die  product  of  the  peak  power  and  the  pulse  duty  factor. 

When  met  •  is  attempted,  the  bandwidth  most  be  widened,  and  die 

type  of  modulation  and  the  depth  of  modulation  must  be  taken  into  account.  To  account 
far  these  variables  a  modulation  factor  M  is  introduced:  letting  P  *  M?s, 


v  2 

_ M~P, 

(2hc/q  X)  FB  (Pg  +  P^  * 


(NEP)^3 


(2-15) 


This  is  the  general  form  used  in  the  computer  model  for  direction  detection. 

(U)  Numerical  values  for  M  are  dependent  on  the  specific  modulation  formats  con¬ 
sidered.  They  have  not  yet  been  determined  for  all  cases  ox  interest.  However, 
Section  5  discusses  several  cases  assuming  quantum  -limited  detection  performance 
(implying  heterodyne  detection,  as  discussed  in  the  nest  topic). 
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Section  2  —  Data-Base  Review  and  Model  Formulation 
Subsection  C  -  Mn/faUn^  die  Detection  Process 

2.  SIGNAL-70- NOISE  RATIO  USING  HET230D7NZ  DETECTION 

(U)  Heterodyne  detection  of  an  optical  signal  can  provide  quantum  -limited  sensitivity. 

(U)  Coherent  optical  detection*  or  heterodyne  detection*  differs  from  direct  optical 
detection  in  that  a  coherent  laser  reference  beam  Is  provided  at  die  receiver  to  Il¬ 
luminate  the  photodetectnr  as  shown  in  Figure  2—4,  so  that  signal  frequency  and  phase 
information  is  retained.  Even  if  frequency  or  phase  modulation  is  not  employed,  use 
of  a  heterodyne  receiver  can  greatly  reduce  die  effective  system  noise  level. 

(XT)  Consider  a  signal  to  be  incident  on  the  detector  of  power  ?g  »  <AgA3*>  where  A3 
is  a  coherent,  complex  waveform  given,  by  J 

A.  »  U  exp  (jut  +  j  o).  (2-13) 

Either  the  wave  ampWtede  u,  the  optical  frequency  w,  or  the  phase  «  may  be  the  ttru.4- 
varying  component  depending  on  the  modulation  format  of  the  transmitter. 

The  time  average  indicated  for  Ps  is  over  an  optical  period  which  is  short  in  com¬ 
parison  to  the  reciprocal  of  the  signal  bandwidth  3,.  If  a  reference  signal,  or  local 
oscillator  signal,  ?2o  oi  complex  amplitude 

A0  «  TJa  exp(Jw0t  +Joa)  (2-17) 

where  P^q  *  <AQA0*>  is  mixed  with  the  signal  beam  so  that  the  wavefronts  are  par¬ 
allel,  die  resultant  detector  current  is  given  by 


(rjqX/hc)  <(A0  +  Ap  (Aq  *  Ag)->  - 

(pqX/ho)  (?2o2  +  ?32  +  2UaU  cos(wQt  -wt  +  -O)]  (2-13) 


where  we  have  assumed  unity  detector  gain.  If  a  narrow-band  IF  Alter  centered  at 
the  frequency  iw»uQ  -  w  is  inserted  behind  the  detector  to  remove  the  unmodulated 
signal  elements,  the  instantaneous  signal  current  at  the  17  output  win  be 


l9  ■  <pq x/hc)  2UqU  coa(Awt  +  o- 

(2-19) 

The  resulting  17  signal  power  is 

S  -  <i*>  -  !|W 

(2-20) 

where  the  time  average  is  sow  over  the  ET  wave  period. 

(U)  The  noise  power  Is  essentially  the  same  as  for  direct  detection,  except  that 
additional  shot  noise  is  generated  by  die  local-oscillator  signal.  Thus 
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m  M  -  [»  iqr  XAc)  (5,  *  Sj.  *  2*4*4.  *  <W1  %  (2-21) 


where  B^_,  Is  the  IF  bandwidth. 


The  ratio  of  gioy»at  to  noise  in  the  IF  channel  is  therefore 


_ 2  ( rjqk/ha)2  P  IqP3 Rl _ 

“  HZr^XAc)  (Ps  +Pb+P2o)  SL  +  2qldaL  +  4kT’  Bjy 

(nxAeTV-,)?  _ 

B  .  .  —  .i  ■ .  "i  '  — —  ■  —  *  • 

1  +  p  2q"1  [ps  +  Pb  +  (hc/tiq^)  (qid  +  2krr/aL)3 


As  the  local-os dilator  power  ?2o  is  increased,  the  noise  contributions  in  the  second 
tern  of  the  denominator  becomes  negligible,  and  the  SNR  approaches  the  qua  mam  limit. 


4 


EF 


V\ 


■SSb^T 


(2-23) 


The  NEP  for  thi.q  case  can  be  determined  by  setting  the  IF  SNR  equal  to  unity  and 
solving  for  Pa. 

(U)  The  ability  to  achieve  such  quantum -limited  sensitivity  is  possible  only  if  die 
local-oscillator  power  required  does  not  cause  detector  damage  or  nonlinear  operation. 
Such  performance  has  been  demonstrated  in  practical  wideband  systems  operating  at 
10. 6  um  with  less  than  1  aW  of  local -oscillator  power.  Quantum-limited  sensitivity 
Is  therefore  practical  and  will  be  assumed  for  the  heterodyne-detection  case. 

(U)  A  limitation  on  heterodyne  applicability  results  from  the  need  for  phase-matching 
of  the  reference  beam  to  feat  of  the  beam,  as  discussed  in  Section  5.  In  practice 

TwatgHntf  can  be  achieved  only  over  a  detector  area  on  the  order  of  0. 7  d  where 

d  »  1. 22Xf/D  (2-24) 

9 

is  the  diameter  of  the  Airy  disc  for  a  *y*tp-Tn  with  effective  entrance  aperture  diameter 
D,  and  focal  length  f.  Even  then  a  mismatch  loss  occurs,  which  under  optimum  condi¬ 
tions  leads  to  a  SNR  redaction  of  L^sr  0.7,  so  that 


(2-25) 


Moreover,  since  the  detector's  3eld  of  view  is  given  by 


a, -a/I2, 

(2-26) 

then 

3S»  (X/D^)2, 

(2-27) 

*  substantial  limitation  on  detector  field  of  view. 
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(TI)  A  second  detection  Is  required  to  convert  the  IF  signal  to  a  usable  video  signal. 
The  final  video  output  SHE.  depends  on  the  type  of  modulation,  the  type  of  second 
detection,  and  die  magnitude  of  the  input  IF  SNR.  For  demodulation,  the  beat  video 
SNR  be  obtained  using  linear  video  detection,  in  which  case,  assuming  a  reasonably 
large  IF  SNR  [2-1], 

4*24)  •  (2-23) 

*  IF 

If  the  IF  bandwidth  is  twice  die  information  bandwidth  3Q  (the  optimum  condition)  then 

i  -  hi  -s®,*2*,  (2-a’ 

where  we  have  reintroduced  die  modulation  factor  M  to  account  for  various  modulation 
types.  This  form  Is  assumed  in  the  computer  model  for  heterodyne  detection. 

(XT)  For  detection  only,  square- law  video  detection  and  video  integration  of  a  chopped 
optical  input  are  appropriate  when  the  IF  input  SNR  is  less  than  unity.  This  is  the  case 
for  die  Dicke  radiometer,  which  is  discussed  in  Section  5.  Because  of  die  numerous 
video  detection  schemes  possible,  however,  it  is  unrealistic  to  consider  all  possible 
cases. 


Figure  2-1.  A  Typical  Receiver  Configuration  for  Coherent  Heterodyne  Optical 
Detection.  The  optical  detector  area  is  limited  :o  leu  than  a  diffiacdoo-limited 
spot  axe. 
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Section  2  -  Data-Base  Review  and  Model  Forauiadon 
Subsection  C  -  Modeling  die  Detection  Process 

3.  BACKGROUND  NOISE 

(U)  A  background  model  is  developed  which  accounts  for  both  solar  and  blackbody  background 
components  and  is  adaptable  to  varying  sky  conditions. 


(U)  Contributions  to  detector  background  noise  arise  primarily  from  two  sources: 
scattered  or  reflected  solar  radiation  during  daylight  hours,  and  earth  blackbody  radi¬ 
ation  at  all  times.  Establishing  blackbody  background  radiation  is  generally  straight¬ 
forward  ,  whereas  solar  radiation  is  complicated  by  die  selective  absorption  effects  of 
die'  atmosphere  and  of  reflecting  surfaces. 

(U)  Natural  radiation  ginitt-wri  from  diffuse  background  objects  in  thermal  equilibrium 
at  a  temperature  T  is  specified  in  terms  of  die  spectral  radiance  N\  of  the  source, 
where  [2-51 

Nx  -  €  (X)  (2hc2A5)  [asp  (hc/XkD-l]'1  .  (2-30, 

€  (X)  is  the  spectral  emissivity  of  the  source.  If  e  is  unity  for  all  wavelengths,  then 
the  source  Is  termed  a  blackbody.  A  plot  of  versus  wavelength  is  shown  in  Fig¬ 
ure  2-5  for  a  293°  K  blackbody.  A  comparison  with  measured  values  is  made  at  the 
end  of  this  discussion,  showing  that  die  values  for  N\  given  by  Figure  2-5  provide  an 
accurate  model  for  most  natural  sources.  This  is  true  because  most  materials  have 
emissivities  near  unity  In  the  infrared  region  where  the  blackbody  radiance  peaks,  as 
Indicated  by  die  data  of  Table  2-1  [2-6% 


(U)  The  resulting  background  cower  P^b  incident  on  the  receiver  photodetector  due 
to  blackbody  radiation  is  given  by 


P 


bb 


(2-311 


where  Afj  is  the  area  of  the  blackbody  source  at  a  range  R»,  subtended  by  the  surveil¬ 
lance  receiver  soEd  angwtaT  field  of  view  Qg; 

°b  *  vV-  «-“> 

which  is  die  solid  angle  into  which  the  source  radiation  must  propagate  to  be  sees  by 
the  detector;  and  hX  is  die  optical  filter  bandwidth  of  the  receiver.  Since  the  black¬ 
body  source  fills  the  receiver  field  of  view. 


so  that 


Vfl3' 

*xVs  ^  ’ 


(2-33) 

(2-34) 


which  is  Independent  of  source  range. 

The  component  of  solar  radiation  contributing  to  background  noise  must  be  re¬ 
flected  ot  scattered  into  the  detector  field  of  view  barring  die  unlikely  chance  that 
die  sun  is  directly  in  the  field  of  view,  a  geometry  to  be  avoided. 

Assuming  the  i  receiver  is  looking  directly  at  die  transmitter,  or  at  die 

link  receiver,  die  source  area  which  would  be  reflecting  radiation  would  probably 
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~  be  die  side  of  a.  building,  a  backstop,  or  perhaps  natural  terrain.  If  the  receiver 
were  directed  elsewhere  along  the  path.  It  still  would  probably  intercept  the  same 
features,  or  it  might  intercept  the  sky  background. 

(U)  Consider  the  case  where  the  receiver  held  of  view  intercepts  a  building,  as 
shown  in  Figure  2-6.  The  field  of  view  defines  the  area  Av,  from  which  3oiar  radia¬ 
tion,  assumed  to  emanate  at  an  angle  3 sol*  i3  reflected.  The  total  solar  power  in¬ 
cident  an  A^,  In  a  wavelength  range  a  X  is  given  by 


SyS  ***  9  sol 


(2-35) 


where  is  the  spectral  irradiance  from  the  son. 

(U)  A  plot  of  as  a  fmchan  of  wavelength  is  shown  in  Figure  2-7  for  the  son  at 
•rgnitfa  [2-7).  The  solar  spectral  irradiance  is  closely  approximated  by  a  blackbody 
source  at  5900°  K.  As  seen  in  Figure  2-7,  however,  anno  spheric  attenuation  effects 
further  redice  Ey,  sad  it  is  highly  structured  due  to  strong  molecular  absorption  bands. 
Gast  [2-7)  provides  tabulated  data  for  n\  at  sea  level  assuming  a  solar  zenith  angle 
9  sol  °*  SG°  (sir  mass  2)  a  nominal  condition. 

(U)  The  radiance  X30l  within  A  X  from  the  area  Av,  due  to  the  reflected  sunlight, 
a^qmring  a  diffusely  reflecting  surface  of  reflectance  p,  is  given  by 


Nsol  =  pPinc/,rAb 

so  that  the  total  solar  power  on  the  surveillance  receiver  is 

PSCl-  N30lA3Q3' 

Combining  (2-35)  -  (2-37), 


psind 


sol  *X  As  “s 


2.  A  X/». 


(2-36) 


(2-37) 


(2-35) 


(U)  With  reference  to  Figures  2-5  and  2-7,  the  solar  component  is  clearly  dominant 
in  the  visible  and  near-infrared  regions  of  the  spectrum,  whereas  the  blackbody  radia¬ 
tion,  dominates  in  the  far- infrared  region.  Some  measured  values  [2-5]  are  presented 
in  Figures  2-5  through  2-15,  and  comparison  with  Figure  2-5  shows  consistently  good 
agreement  for  the  blackbody  component.  It  is  difficult  to  compare  the  measured  re¬ 
flected  solar  components  of  these  figures  with  theory  because  the  measurements  are 
provided  primarily  in  the  region  berween  1. 5  pm  and  3. 0  pm,  where  both  material 
reflectances  and  .atmospheric  absorptance  are  both  highly  varying  with  wavelength. 
However,  they  are  in  reasonable  agreement  assuming  a  5900°  K  blackbody  model  for 
the  son. 

(U)  Figure  2-15  also  indicates  a  comparable  solar  spectral  radiance  component 
from  the  sky  to  that  from  terrestrial  sources,  although  a  region  around  10  pm  can  be 
significantly  lower  depending  on  temperatnre  and  clond  conditions  [2-6 ,  p.  99). 

(U)  The  total  background  power  P*0  is  given  by  the  sum  of  the  blackbody  and  solar 
components. 


?b  "  ?bb  *  Psol 


(2-39) 


however,  as  snown  in  Figure  2-10,  the  solar  component  is  absent  at  sight,  as  expected, 
whereas  the  blackbody  component  is  always  present.  A  background  model  should  there¬ 
fore  have  provisions  for  specifying  daytime  or  nighttime  conditions.  Moreover, 
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(U)  conditions  such  as  an  overcast  sky  may  exist,  but  such  a  generaliza¬ 
tion  requires  jjjy  radiance  be  considered  rather  than  direct  solar  imdiacce.  This 

requires  an  integration  over  that  portion  of  the  sky  irradiating  A>j,  a  rather  complex 
way  to  determine  the  reflected,  radiance.  However ,  Little  additional  accuracy  can  be 


<jfvinid  be  adequate  for  a  reasonable  characterization  of  solar  noise  under  various 
intermediate  conditions. 


Figure  2*5.  Soectrai  Radiance  for  a  293°X  Sladcnodv 


UNCLASSIFIED 


mmesBSi 


0. 7-1. 0  am 

1. 8-2. 7  am 

3-6  am 

3-13  am 

Green  Mountain  Laurel 

.  p  —  0.44 

«  *0.34 

<-0.90 

<-0.92 

Young  Willow  Leaf  (dry,  top ) 

0.46 

0.82 

0.94 

0.96 

Holly  Leaf  (dry,  topi 

0.44 

0.72 

0.90 

0.90 

Holly  Leaf  (dry,  bottom) 

0.42 

0.54 

0.86 

0.94 

Pressed  Dormant  Maple  Leaf  vary,  top) 

0.53 

0.58 

0.87 

0.92 

Green  Leaf  Winter  Color— 'Oak  Leaf  idry,  top) 

0.43 

0.67 

0.90 

0.92 

Green  Coniferous  Twigs  (Jack  Pine) 

0.30 

0.86 

0.96 

0.97 

Grass  — Meadow  Fescue  idry) 

0.41 

0.62 

0.82 

0.38 

Sand — Hainamanu  Silt  Loam — Hawaii 

0.15 

0.32 

0:34 

0.94 

Sand  — Barnes  Fine  Silt  Loam— So.  Dakota 

0.21 

0.58 

0.78 

0.93 

Sand— Gooah  Fine  Silt  Loam -Oregon 

0.39 

0.54 

0.80 

0.98 

Sand  —  Vereimging — Africa 

0.43 

0.56 

0.82 

0.94 

Sand  — Maury  Silt  Loam  — Tennessee 

0.43 

0.56 

0.74 

0.95 

Sand  -  Dublin  Clay  Loam  -  California 

0.42 

0.54 

0.88 

0.97 

Sand  — Pullman  Loam— New  Mexico 

0.37 

0.62 

0.78 

0.93 

Sand  — Grady  Silt  Loam -Georgia 

0.11 

0.58 

0.85 

0.94 

Sand  — Colts  Neck  Loam  — New  Jersey 

0.2S 

0.67 

0.90 

0.94 

Sand  — Mesita  Negra  —  lower  test  site 

0.38 

0.70 

0.75 

0.92 

Bark  — Northern  Red  Oak 

0.23 

0.78 

0.90 

0.96 

Bark -Northern  American  Jack  Pine 

0.18 

0.69 

0.88 

0.97 

Bark  — Colorado  Spruce 

0.22 

0.75 

0.37 

0.94 

UNCLASSIFIED 


rtKii 


.»  •  Ml  III 


I  JR- 


UNCLASSIFIED 


o  <w  a.*  oa  ua  uz  u*  us  x.a  aa  a_a  a.*  a*  as  ao  aa 

WAVtUNOTH  (Mini 


Figure  2*7.  Solar  Sprccrai  Irradiance  with  Sun  at  Z-rnirh  Shaded  areas  indicarr  ahsorpaoa,  at  sea 
level,  due  to  the  atmospheric  consorueas  shown  [2-7]. 
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figure  211.  Spectral  Itadiancc  of  liras*.  Summer  Day,  Figure  2-1 S.  Spectral  ft  alliance  of  Sly,  Concrete,  Snow, 

dear  |2  8|  and  (jrass,  Winter  Day  |2-b) 
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TABLE  2-2.  APPROXIMATE  LATERAL  SCENE  ILLUMINANCE  THOM  THE 
SKY  UNDER  VARIOUS  CONDITIONS  [2-9] _ 


Direct  grtnHgnt 

lmaens/m2 
1-1.  3  x  10* 

Poll  daylight* 

1-2  X  104 

Overcast  day 

103 

Very  dark  day 

102 

Twilight 

10 

Deep  twilight 

1 

Foil  moon 

10-1 

f  Quarter  moan 

I-* 

o 

1 

M 

Starlight 

10“3 

Overcast  starlight 

lO”4 

*  Not  direct  sanlight 
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Section  2  -  Data-Base  Review  and  Model  -'orauiaHon 
Subsection  D  -  Scattering  Mechanisms 

1.  OVERVIEW 

(TJ)  In  this  section  the  major  mechanisms  for  scattering  radiation  are  modeled,  and  data  for 
determining  their  significance  is  identified  and  discussed. 


The  total  signal  power  Pa  available  to  an  orf-acfis  receiver  attempting  to  > 
radiation  from  an  optical  communications  link  may  arise  from  four  major  sources. 

They  Include  transmitter  sidelobes,  transmitter  window  scatter,  atmospheric  scattir, 
and  backsoatter  hr-  the  receiver,  backstop,  or  any  foliage,  structure,  or  other  object 
along  the  beam  path,  including  the  ground  itself.  Denoting  the  scattered  power  available 
from  die  transmitter,  atmosphere,  and  receiver  as  ?*,  and  Pr  respectively  then 

Ps»  Pt^^a^  ?r-  (2-40) 

Other,  less  obvious  sources  may  also  be  present,  but  they  are  difficult  to  model  in 
general,  and  means  for  dealing  with  such  extraneous  sources  must  be  developed  as 
they  arise  or  are  suspected.  Some  modeling  techniques  assuming  virtual  sources  aj-e 
discussed. 

Generally,  all  three  major  radiation  sources  cannot  be  collected  simultaneoa  iy 
because  of  the  presumably  limited  field  of  view  of  the  receiver.  A  general 

model  should  therefore  specify  the  source  power  available  as  a  function  of 
receiver  field  of  view  dgh  and  pointing  direction.  The  three  power  sources  have  there¬ 
fore  been  specified  in  terms  of  these  parameters.  To  identify  the  most  extreme  case, 
however,  the  total  power  available  from  all  three  sources  ax  a  given  point  can  be  cal¬ 
culated  by  assuming  the  field  of  view  osh  adequately  wide  to  encompass  fixe  whole  link. 
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Section  2  -  Dam- Base  Review  and  Model  Formulation 
Subsection  D  -  Scattering  Mechanisms 

2.  TRANSMITTER  SCATTER -SID  ELOBES 

(TJ)  Aperture  sidelobe  radiation  is  completely  specifiable  in  terms  os'  exit  aperture  diameter 
and  optical  wavelength  for  ciffracttcn  beyond  one  degree. 


(U)  If  a  coherent,  uniform  plane  wave  is  transmitted  through  a  transmitter  aperture 
of  diameter  Dt,  tie  resulting  radiant  intensity  distribution  is  given  by  die  Airy  pattern 
(2-101, 


yo> 


2  ?ntfiT' j 


(2-41) 


where  J-j.  is  the  first-order  Bessel  function.  A  plat  of  the  Airy  pattern  is  shown  in 
Figure  2-16.  This  distribution  also  holds  if  die  aperture  is  a  less  or  parabolic  mirror 
used  to  collimate  a  point  source  [2-11].  The  radiant  intensity  on  axis,  I3(0),  is  given 
by  [2-10,  p.  386] 


Is(0)-(rDt2/4A2)Fo,  (2-42) 

based  on  die  requirement  that  the  total  power  P0  emitted  from  the  transmitter  be 
conserved. 

<U)  The  sidelobea  of  the  Airy  pattern  shown  in  Figure  2-15  are  noted  to  rapidly  d<  * 
crease  in  amplitude  with  increasing  x,  where  x  *  rrDttJ/X.  For  the  majority  of  case* 
of  interest  we  will  be  concerned  only  with  large  values  of  x.  For  example,  with 
Dt  ■  10~2  ta,  \  *  10~3  m,  then  for  8  >  1°,  x  >  500.  An  asymptotic  approximation  to 
Ji(x)  for  large  x  is  thus  usually  reasonable.  From  Olver  [2-12], 

(X)  a  (2/tx)1^2  cos  ( X  -  3  s/4)  (2-43) 

for  large  x.  Since  x  is  a  rapidly  varying  function  of  3 ,  the  sinusoidal  variations  will 
average  out,  so  that  we  may  replace  [Ji  (x)]2  by  [Ji(x)]2,  its  average  value,  and 

[J1(X)12  *  1/3TE.  (2-44). 

Combining  (2-41),  (2-42),  and  (2-44) 

.  P. 

1,(6)  -  -*»  r  •  (2-45) 

3  Dt  Or*)3 


(TJ)  The  validity  of  (2-45)  for  practical  systems  must  be  questioned  since  uniform 
plane  waves  are  rarely  achieved  in  practice,  and  various  aperture  shapes  and  obscura¬ 
tions  are  often  used.  Also,  ganssian  rather  ha a  'uniform  beam  profiles  and  axsenc-d 
rather  than  point  sources  are  commonly  encountered.  However,  an  analysis  of  ca.cn- 
lations  made  by  Rosen  [2-13]  indicates  hat  variations  due  to  ganssian  beam  profiles 
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JJ)  and  central  obscurations  are  only  experienced  'ey  near- in  sideiobes.  Rxrreme 
sideio'oes  (9  >  1°)  approach  the  sane  asymptotic  Limit.  A  similar  result  occurs  if 
extended  sources,  either  coherent  or  incoherent,  are  considered. 

(XT)  The  major  shortcoming  of  (2— IS)  is  experienced  when  very  long  Heir  path*  are 
considered,  such  as  for  a  satellite- to-ground  link,  where  values  of  9  less  than  one 
degree  must  be  analyzed.  The  exact  Airy  solution  may  then  be  appropriate. 

(U)  Another  minor  problem  with  (2-45)  is  that  it  predicts  sideiobes  at  90°  from  die 
aperture.  This  results  because  of  die  neglect  of  die  so-called  obliquity  factor  [2-11] 
in  the  derivation  of  the  Airy  pattern.  The  rigorous  equation  from  which  (2-41  is  de¬ 
rived  contains  a  multiplicative  factor  cos  9 ,  the  obliquity  factor,  which  is  neglected. 
Reintroducing  it  into  (2-45)  in  order  to  avoid  the  physically  unrealizable  condition  of 
diffraction  sideiobes  at  90°, 

X  Po 

lm(9)  *  -  COS  9.  (2-46) 

Dt  (*9)3 

Whereas  the  variation  is  clearly  negligible  except  at  large  angles,  the  resulting 
distribution  is  more  plausible  and  intuitively  satisfying. 


Figure  2*16.  The  Airy  Pattern,  or  Fraunhofer  Diffraction 
Pattern  :cr  a  Grcaiar  Aperture.  The  asytnptocic  average 
for  large  x  is  shown  cloned. 
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Section  2  -  Data  Base  Review  and  Model  T emulation. 

Subsection  D  -  Scattering  Mechanisms 

3.  TRANSMITTER  SCATTER  -  PORT  SCATTER 

Tie  complexity  of  port  scattering  mechanisms  suggest  that  an  empirical  rather  than  an  andyti- 
cal  approach  be  taken. 


Port  scatter  results  from  microscopic  surface  Irregularities,  bulk  optical 
material  tmperfectLons,  and  dust,  moisture,  and  other  contaminants  on  and  within  the 
optical  system.  A  general  analytical  approach  to  establishing  the  amount  of  radiant 
intensity  scattered  from  systems  due  to  the  various  scattering  sources  is  complicated 
by  the  fee t  that  the  scattered  radiation  may  then  be  retracted  or  reflected  by  the  follow¬ 
ing  optics.  Therefore,  not  only  does  the  distribution  of  scattering  centers  have  to  be 
specified,  but  also  complex  off-axis  ray  tracing  must  be  performed.  Measured  data 
on  many  systems  and  optical  materials  have  been  compiled,  however,  and  an  empiri¬ 
cal  rather  than  analytical  approach  appears  to  be  more  tractable. 

Regardless  of  how  the  data  are  derived,  the  scattering  profile  Trill  be  expresse  d 
in  terms  of  a  normalized  port  scattering  distribution  function  c  ( 8 ),  defined  such  the; 

Op  (9)  -  Ip  (3)/P0  cos  9  (2-47) 

where  Ip  (9)  is  the  measured  radiant  intensity  scattered  at  an  angle  9  from  the  trans¬ 
mitter  exit  aperture  when  it  is  transmitting  power  ?0-  This  is  consistent  with  defini¬ 
tions  used  by  Nlcodemus"  (2-14). 

It  is  assumed  here  that  scattering  is  radially  symmetrical,  depending  only  on  9, 
which  may  sot  always  be  a  valid  assumption.  Real-world  systems  may  also  contain 
specular  components.  Variations  can  be  introduced  as  necessary  to  represent  specific 
cases  by  appropriately  selecting  fee  function  Cp(9). 


"Use  of  Nlcodemns1  definition,  which  includes  the  factor  cos  9 .  is  somewhat  arbitrary 
for  characterizing  port  scatter.  The  purpose  of  including  fee  factor  cos  9  is  clearer 
In  fee  context  of  surface  reflections,  as  discussed  ahead,  in  which. case  a  reflectance 
distribution  function  is  defined  similarly  to  T-tTi  so  feat  its  value  will  equal  a  con¬ 
stant  if  fee  surface  is  perfectly  diffuse,  or  Lambertian,  a  common  assumption  for 
natural  features.  *  ?  is  similarly  defined  here  for  fee  sake  of  consistency. 
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Section  2  -  Data-Base  Review  and  Model  Formulation 
Subsection  D  -  Scattering  Mechanisms 

4.  TRANSMITTER  SCATTER  -  TOTAL  POWER  COLLECTABLE 

I)  Tie  total  power  available  to  a.  -  from  the  transmitter  is  die  sum  a  the 

attenuated  sideiooe  and  port-scatter  components  scattered  within  die  receiver  SeJd 

of  view. 


The  contrlbxtioxis  from  sldelobes  and  window  scatter  comprise  the  total  scattered 
power  available  from  the  transmitter.  In  order  to  detect  it  the  receiver 

held  of  new  must  intercept  the  transmitter  window.  We  shall  disregard  the  narrow 
transition  region  and  assume  that  the  whole  window  either  can  or  cannot  be  seen.  With 
reference  to  Figure  2-17  we  shall  assume  that  it  can  be  seen  if  and  only  if  3-t  -  o  sh/- 
<  3i  S3*-  osh/ 2.  If  this  condition  is  met,  then  the  total  scattered  transmitter  power 
P*  incident  on  the  detector  will  be 

?t(Sl)  «  -  Ip(3i)]esp(-K2Rt)Cs  (2-43) 

where  R*  is  the  range  from  the  transmitter  to  the  receiver, 

a  tflj  +  Oj  (2-49) 

is  the  atmospheric  extinction  coefficient  at  the  operating  wavelength  doe  to  absorption 
(OaJ  and  scattering  (a,)  by  atmospheric  conshtaena,  and 

0*3  -  A3/Rt2,  (2-50) 

which  defines  that  solid  angular  portion  of  radiation  scattered  from  the  transmitter 
Into  the  receiver.  Combining  (2-46)-<2-48)  and  (2-50) 


p0  KVDjO^f  3  -  co so iex? (-aR g/Rj2 


w 


&r  9t  ~  9a/~  -^i  S9t^ 


(2-51) 


[0  otherwise. 

(U)  We  note  that.  In  general,  the  net  change  d?  in  optical  power  due  to  atmospheric 
extinction  over  an  elemental  path  length  dr  Is 


d P  »  -aPdr. 


(2-52) 


If  a  Is  constant  over  the  path  length  of  Interest,  in  this  case  R*,  then  the  simple 
exponential  form  for  the  extinction  loss,  as  Introduced  in  (2-48),  holds.  Sowever, 
if  a  is  not  constant  over  the  path  length,  then  we  must  sake  the  replacement 


2-38 


n 


an 


(2-53) 


(  i  Tie  extinction  coefficient  is  in  general  a  function,  of  both  tie  atmospheric  state 
and  the  link  altitude.  Tie  change  (2-53)  must  be  invoked  whenever  the  spatial  variation 
is  significant.  Tie  most  obvious  case  where  the  substitution  will  be  needed  is  for  the 
satellite- to-ground  geometry.  All  other  parameters  are  dependent  only  on  the  trans¬ 
mitter  or  ~~  receiver  characteristics  or  meir  relative  positions  and  altitudes. 
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Section  2  -  Data.-3ase  Review  and  Model  Formulation 
Subsection  O  -  Scattering  Mechanisms 

5.  T3A2JSMJTTZ3  SCATTE3  -  MEASUREMENT  DATA 

(IT)  Port  scattering  from  practical  optical  systems  generally  varies  exponentially  with  off-axis 
angle,  with  variations  due  to  differences  in  design,  and  degree  of  cleanliness  Internal-wall 
scattering  can  resuit  in  strong  specular  glints. 


(U)  As  noted,  it  is  very  difficult  to  develop  a  generalized  analytical  approach  for 
describing  port  scatter  from  an  optical  transmitter  because  of  the  wide  variety  of 
geometries  and  pbr'*vom>9£ia  involved.  Figure  2-13  illustrates  the  complexity  of  such 
an  approach.  Assuming,  for  example,  a  light-emitting  diode  or  laser  diode  as  a  source 
In  a  refractive  system,  the  radiation  most  be  collected  and  focused  by  a  lens,  and  the 
scattering  profile  will  be  dependent  on  the  spattal  pattern  of  light  incident  on  the  lens. 

The  lens  will  scatter  light  as  both  surfaces  and  from  bulk  imperfections,  Moreover,  a 
oonnegiigrble  amount  of  doubly  reflected  light  will  be  refocused  towards  a  short  3eco  id- 
ary  focal  point  at  a  distance  of  about  (n-l)(2n)~if,  where  f  is  the  lens  focal  length  and 
n  its  index  of  refraction.  Light  may  also  be  scattered  off  internal  walls  of  the  system. 
(TT)  A  more  sophisticated  system  might  use  a  collimated  laser  and  a  beam  expander, 
also  shown  in  Figure  2-13  assuming  reflective  optics.  Though  such  a  design  approach 
is  inherently  cleaner,  structures  such  as  the  web  required  to  hold  the  secondary 
mirror  will  introduce  an  additional  scattering  component  which  Is  aonsymmetrical  and 
difficult  to  model  predictively. 

(TT)  Several  investigations  have  examined  the  scattering  properties  of  optical  mater¬ 
ials.  Scheeie  (2-151  has  performed  scattering  distrfbation  measurements  on  numerous 
transparent  optical  materials  (flats)  useful  at  both  visible  and  infrared  wavelengths. 

A  portion  of  bis  results  which  are  representative  are  mown  in  Figures  2-19,  2-20, 
and  2-21  for  various  optical  materials  at  0. 633  /jm,  1.  06  ms,  and  10.  S  nm.  He  ala 
has  made  measurements  at  3. 39  jim*  Leinert  and  Kluppeiberg  [2-16]  have  examined 
the  scattering  properties  of  mirrors  at  visible  wavelengths.  Some  of  their  results  are 
also  shown  in  Figure  2-19.  A  j  report  provides  measured  data 

fox  a  germanium  anti-reflection  coated  optical  flat  irradiated  at  10. 6  nn,  also  shown 
in  Figure  2-21.  Carmer  and  Lindquist  [2-13]  also  made  scattering  measurements  ax 
1.  06  um  for  various  materials,  and  their  results  fell  within  the  envelopes  shown  in 
Figure  2-20.  They  also  varied  the  source  polarization  in.  their  measurements  and 
observed  only  minor  variations.  For  each  of  the  programs  cited,  (he  optical  beam 
was  incident  normal  to  the  sample. 

(U)  All  of  these  results  show  a  basic  S~-  angular  dependence.  Also,  Scheeie  notej 
that  scattering  generally  decreases  with  increasing  optical  wavelength,  showing  approxi¬ 
mately  a  \-2  wavelength  dependence.  The  bulk  scattering  properties  of  a  transparent 
material  can  be  ascertained  by  comparing  the  scattering  properties  of  the  same'  mater¬ 
ial  but  different  thicknesses  such  as  those  shown  in  Figure  2-20  for  Tt'TSAN. 

(If)  Leinert  and  Suspeiberg  also  made  measurements  on  lenses  at  0.  833  am,  the 
results  of  which  are  shown  in  Figure  2-22.  Again  the  curves  are  roughly  proportional 
tn  9-2  when  double  reflection  is  suppressed.  The  doubly  reflected  component  to 
increase  scattering  as  larger  angles.  It  can  be  substantially  suppressed  using  anti¬ 
reflection  (AR)  coatings,  but  some  coaxings  teed  to  increase  surface  scattering,  espec¬ 
ially  after  cleaning  [2-13]. 
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Figure  2*19.  (U)  Normalized  Sautering  Disenburion  Functions  tor  Various  Optical  Max  emu  Irradiated 
Normally  at  0.633  am.  Daa  were  obtained  aura  Schseie  [2-13]  and  Leinert  and  Kluppdberg  [2-16] 
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Figure  2-20.  (U)  Normalized  S cartering  Distribution  Functions  for  Optical  Materials  of  Various 
Thicknesses  Irradiated  Normally  at  1.06  ;un  [2-13],  [2-13]  ;U) 
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Figure  2-21.  (U)  Normalized  Scattering  Distribution  Functions  For  Optical  Materials  or  Various 
Thickness  Irradiated  Normally  at  10.6  am  [2-15],  [2-17]  (U) 
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Section  2  —  Data-Baao  Seview  and  Model  Formulation 
Subsechon  D  -  Scattering  Mechanisms 

3.  ATMCSPHZEIC  SCATTS22NG.  -  THE  CEE  TIC  AL  MCDEUNG 

(TT)  Tie  power  available  via.  atmospheric  scattering  must  in  general  be  aai>**iawi  tth-t  ^nmer- 
ical  integration,  but  a  closed-fora  anproxyrr  asir.n  is  usable  in  the  majori^r  of  cases  of  interest. 


(u)  The  major  parameter  used  to  characterise  atmospheric  scattering  is  the  afcaos- 
pheric  scattering  coefficient  33.  When  an  optical  beam  passes  through  a  scattering 
media,  the  net  power  scattered  out  of  the  beam  is  proportional  to  the  incident  power 
?1  and  to  the  pash  length.  The  elemental  atmospheric  scattering  loss  aP3C  in  length 
dz  is  given  by 


dp  »a‘  P.  ds 

sc  s  i 


(2-54) 


(G)  Atmospheric  scattering  is  farther  characterized  by  the  scattering  distribution 
function  ?  (3 ) ,  which  describes  the  relative  intensity  of  scattered  racLadca  as  a  fonctioa 
of  off-axis  angle.  If  a  total  power  ?3c  is  scattered  from  an  arbitrary  volume  element, 
and  tsc{0)  is  the  resulting  intensity  scattered  ax  hie  angle  3,  then  the  scattering  distri¬ 
bution  function  is  defined  as 


tm-ixw/-9x 


Moreover,  since 


where  the  integration  is  over  a  sphere,  it  follows 


XF(5)  dn: 


(2-65) 


(2-56) 


(2-57) 


The  scattering  distribution  function  used  here  is  ±ersfore  normalized. 

Now  consider  the  geometry  of  Figure  2-25.  Using  (2-34)  and  (2 -53),  the  amount 
of  radiation  originating  from  the  transmitter  and  scattered  from  the  elemental  volume 
aV  *  <hc‘  dy'  dz'  tea  the  receiver  field  of  view  is  given  by 

dtsc(*P  -  ?i&r>  rffpa.OD**'  (2-55, 

where  Pi<g')  is  the  transmitter  power  incident  on  dV\  S’  is  the  vector  from  the 
transmitter  to  dV,  and  9i  is  the  scattering  angle  Sroa"dVT  into  the 
receiver.  (Note  that  the  volume  element  dVT  of  Figure  2-25,  and  consequently  H\  ol 
2i  ,  and  3i’  are  not  necessarily  la  fits  plane  of  the  diagram. )  The  power  incident  on  J 
cV  is  given  by 


<21 


gure  2-25.  Generalized  Geometry  Depicting  Variables  which  Describe  Atmospheric  Scattering, 
is  the  volume  of  intersection  of  the  beam,  not  necessarily  assumed  uniform,  with  the 
receiver  field  of  view.  The  vectors  (indicated  by  underline)  are  not  necessarily  in  the  plane  of  the 
diagram. 
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^<31)  -  I0(9;')  exp 
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-[  ai2)dR  . 
J  a 


dQ» 


(2-59) 


where  dQ’  ■  dx'  dy'/ (R’)2.  The  atmospherically  scattered  power  incident  an  the 
receiver  detector  from  dV’  is 


d?  si  <2  (a!)  gm 

a  sc'V 


-  /  <2(£)  dR 

Mil 


V*8?* 


Combining  (2-58),  (2-59),  and  (2-60)  arirf  integrating. 


(2-60) 


1  r!s:i  Ja;  +  ad 

-/  ai£)aR  -/  a<a>aS 

J  0  -MR'! 


/(Rrap-  (2-6i) 


where  V  is  the  volume  of  Intersection  of  die  receiver  field  of  view  and 

the  transmitter  beam. 

vu)  ( Aside  from  secondary  scattering  effects,  (2-61)  is  essentially  exact  a.-.-wmHng 
Ds/Ri  «  flj  so  that  9*  can  be  considered  constant  over  lie  receiver  aperrxre, 

a  condition  which  we  assume  is  always  met.  For  the  general  case,  a  solution  requires 
numerical  integration.  Such  an  approach  is  necessary  usually  only  for  very  tr»rg  links 
where  the  beam  diameter  can  become  quite  large,  or  for  vertical  Unic*  where  large 
variations  of  a  and  as  with  altitude  are  experienced.  Space- to-ground  links,  for 
example,  fit  both  conditions  and  must  be  solved  numerically.  Eowever,  (2-61)  may 
be  expressed  In  closed  form  If  several  simplifying  assumptions  are  made.  These  as¬ 
sumptions  are  applicable  to  the  large  majority  of  conventional  laser 
links,  as  Illustrated  In  Figure  2-2S. 

(V ^  The  first  simplifying  condition  Is  that  a  and  as  be  reasonably  uniform  over 
region  so  that  the  exponential  extinction  losses  can  be  expressed  In  closed  form. 

Secondly,  If  the  beamspread  and  link  range  are  sufficiently  small.  R<  »  s'  and  R- 
*  Ri  throughout  dV’ .  Finally,  12  the  beam  is  fairly  uniform  and  narrower  fits 
receiver's  field  of  view,  then 

I0(*p  dVV(R’)2  »P0d *j .  (2-62) 

Using  these  three  simplifying  assumptions  and  the  relationships 


z3  -  xg/tsa 


(2-63) 


% 

•% 

dz,  ■  xg  esc”  de1  »  Rj  d6j/sin  9, , 


(2-64) 


2-52 


Figure  2-26.  Basic  Geometry  for  Which  Equation  2-65  Holds.  Also  required  is  chat  a  and  a,  be 
uniform  throughout  die  beam  and  scattering  regions.  (U) 
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?a  a  (PoA3<23/z3)J‘  F(8,)  exp^-ofss|  exp  [3fxj  (cos  9.-l)/sin  9.J 

*  ®s/ 2 


(2-63) 


If  the  field  of  new  ®3  la  sufficiently  snail  that  terns  in  the  integrand  of  (2-65), 
especially  F(9<),  does  act  vary  appreciably,  then 


?a(<v  *  ^P0A3S3Os?’?L)/:'s^  **  r-^sl  [oac3(cos9.-l)/sia  9.).  (2-66) 

For  larger  fields  of  view,  ®3  may  be  subdivided  into  elements  for  which  (2-36) 
and  the  power  available  from  each  element  summed  to  obtain  the  total  power  available.. 
(U)  Turbulence  effects  of  the  atmosphere  have  been  considered  aerf  appear  to  be 
significant  only  when  phase  coherence  is  essential  (the  heterodyne  case)  or  for  the 
space-to-grouad  scenario.  Typical  beam  spreading  sne  to  turbulence,  even  consider¬ 
ing  ground-level  paths  in  very  turbulent  conditions,  is  of  the  order  of  100  urad.  si™—. 
typical  beam  spreads  for  ground  links  are  ?  10  mrad,  the  increase  in  spot  size  is  in¬ 
significant.  However,  for  satellite— to -ground  Upfrg  an  incremental  increase  in  *«»«»•— 
spread  may  increase  the  central  radiation  spot  srtza  on  the  ground  by  as  much  as  a 
kilometer.  Such  cases  must  clearly  be  considered. 
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Section.  2  —  Data-Base  Be  view  and  Model  Formulation 
Subsection  D  -  Scattering  Mechanisms 

7.  ATMOSPHERIC  SCATTERING  -  ESTDTCTICN  .AND  SCATTERING  DATA 

(U)  Atmospheric  extinction  characteristics  vary  both  temporally  and  spatially,  depending  m 
global  locale,  with  ^any'rwr  weather,  seasonal,  and  diurnal  conditions.  Data  collected  by  AFGL 
and  NRL  comprise  the  major  source  for  atmospheric  modeling. 


(IT)  Atmospheric  absorption  and  scattering  characteristics  are  dependent  on  the  in¬ 
dividual  molecular  and  aerosol  constituents  which  make  up  the  atmosphere.  Absorption 
is  primarily  associated  wife  specific  molecular  species,  especially  B2O  and  CO2,  and 
can  be  established  in  terms  of  the  vibrational  and  rotational  absorption-line  character¬ 
istics  of  the  specific  molecules. .  Scattering  is  dependent  on  fee  number  density,  size 
distribution,  shape,  and  indes  of  refraction  of  fee  constituent  molecular  and  aerosol 
particles.  These  parameters  are  not  only  difficult  to  measure,  but  they  are  also  highly 
variable  both  spatially  and  temporally  at  a  given  locale,  and  different  locales  will  ha ve 
different  characteristic  atmospheric  profiles. 

(XT)  The  majority  of  atmospheric  data  for  ECESTROM  modeling  has  been  obtained 
from  fee  Air  Force  Geophysics  Laboratories  (AFGL,  formerly  Air  Force  Cambridge 
Research  Laboratories)  atmospheric  data  compilation.  AFGL  has  had  an  extensive 
program  concerned  wife  fee  optical  properties  of  fee  atmosphere  for  over  a  decade, 
and  they  continue  to  compile  data  from  which  they  have  established  models  for  both 
low-  and  high-resolution  atmospheric  transmittance.  Additional  supportive  daxa  has 
been  obtained  from  Naval  Research  Laboratory  (NHL)  publications. 

(XT)  Because  of  fee  wide  diversity  of  atmospheres  encountered  globally,  AFGL  has 
defined  five  standard  atmospheres  as  a  representative  cross  section  [2-2 2].  These 
include  models  referred  to  as  Tropical,  Midlatttnce  Summer  and  Winter,  and  Subarchc 
Summer  and  Winter.  These  models  are  defined  in  terms  of  fee  atmospheric  pressure 
and  density,  temperature,  and  ozone  and  water  vapor  concentrations  as  a  function  of 
altitude.  In  addition,  two  aerosol  models  have  been  defined,  referred  to  as  contfeentzl 
clear  and  continental  hazy,  corresponding  to  visibilities  of  23  km  and  5  km  respectively. 
A  total  of  ten  models  can  feus  be  specified. 

<XJ)  Because  of  fee  extensiveness  and  ready  availability  of  fee  AFGL  data  on  atmos¬ 
pheric  models  [2-22]  -  [2-25]  none  of  it  will  be  reprinted  here.  The  data  available 
covers  most  nominal  conditions  and  consists  of  a  compilation  of  absorption  and  scatter¬ 
ing  coefficients  for  each  afeiosnheric  model  as  a  function  of  wavelength  and  altitude. 

Most  major  laser  lines  are  included. 

(XT)  An  alternate  approach  to  determining  absorption  and  scattering  coefficients  is  to 
calculate  them  using  either  of  two  computer  models  developed  by  AFGL.  LOWTBAN 
[2-2S]  is  a  low-resolution  code  (20  cm"1)  useful  for  characterizing  broad-band  sources 
such  as  light-emitting  diodes  and  diode  lasers.  The  most  recent  version,  LOWTBaN 
3B,  introduces  four  sew  aerosol  models,  fee  Maritime,  Urban,  Rural,  and  Tropospheric 
Models.  This  extends  fee  modeling  variations  possible. 

(U)  LOWTBAN,  however,  Li  inappropriate  for  characterizing  narrow-band  laser 
sources.  A  comparison  of  fee  spectral  characteristic  of  a  narrow-band  (DF)  laser 
source  to  feat  of  fee  atmosphere  is  shown  in  Figure  2-27  [2-2TJ.  The  LOWTBAN  code 
does  not  provide  fee  fine  structure  exhibited  here,  and  a  higher- resolution  code  is 
required. 
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(U)  ETT2AN,  actually  a  line  compilation,  can  be  used  to  establish,  atmospheric 
absorption  characteristics  for  a  particular  Laser  line  to  the  degree  of  resolution  desired 
[2-23],  [2-29].  This  code  has  been  maria  possible  because  of  an  extensive  compilation 
of  obaorption  line  spectra  doe  to  all  major  molecular  atmospheric  constituents,  includ¬ 
ing  H2O,  CO2,  03,  N2O,  CO,  CH4,  and  O2. 

(TT)  Ongoing  measurements  at  NRL  have  confirmed  with  good  agreement  the  general 
band  structure  predicted  by  the  HiTiLAN  model.  Measurements  made  at  DF  laser 
wavelengths  (3. 6  -  4. 1  pm)  have  shown  excellent  agreement  [2-3,0].  However,  the 
HTTHAN  code  has  been  found  to  substantially  over-predict  transmission  in  the  region 
from  4. 7  pm  to  3. 1  pm  [2-31].  In  both  regions  the  results  have  been  found  to  be 
strongly  dependent  on  local  water  vapor  pressure.  Code  updates  at  AFGL  and  measure¬ 
ments  at  NELL  continue,  however,  arid  differences  in  the  theoretical  models  and  mea¬ 
sured  data  are  rapidly  converging.  Moreover,  extensive  additional  data  will  soon  be 
available  from  an  AFGL  atmospheric  measurements  program,  taking  place  in  Europe 
in  cooperation  with  NATO  [2-32], 


Figure  2*27.  Comparison  at  the  Atmospheric  Transmission  Specmun  the 
OF  Laser  Emission  Spectrum.  The  transmittance  is  rapidly  varying  in  the 
vicinity  of  the  laser  line  and  requires  a  high -resolution  model  maintain 
accuracy  [2-27], 
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Section  2  —  Data-Base  Review  and  Model  Formulation 
Subsection  D  —  Scattering  Mechanisms 

3.  ATMOSPHERIC  SCATTERING  -  DI5TRBUTTON  FUNCTION  DATA 

(TT)  Atmospheric  scattering  profiles  have  been  obtained  from  scattered  measurement  programs 
and  from  the  general  Mia  scattering  theory,  with  ■which  the  measured  tia-a.  are  in  fairly  good 
agreement. 


(U)  If  fixe  atmosphere  were  composed  only  of  molecules,  whose  diameters  axe  much 
less  than  optical  wavelengths,  appropriate  approximations  would  result  in  the  Rayleigh' 
scattering  theory,  ’’mica  predicts  an  almost  uniform  scattering  distribution.  However, 
aerosol  components  of  the  atmosphere  are  almost  always  the  dominant  scattering 
mechanism.  Such  aerosol  particles  typically  nave  diameters  of  the  order  of  fixe  optical 
aixri  infrared  wavelengths  of  interest,  and  the  more  general  Mie  theory  must  be  ’used. 
Scattering  distribution  fun  chon  measurements  have  not  been  as  extensive  as  extinction 
measurements,  and  though  predictions  based  on  the  Mie  model  are  theoretically  well- 
founded,  they  are  strongly  dependant  cm.  the  sine  distrxbuticu  of  atmospheric  constitu¬ 
ents,  a  function  which  is  difficult  to  measure. 

(C~)  The  theory  developed  by  Mie  [2-33]  provides  an  exact  solution  for  the  scattering 
of  a  polarized  plane  wave  from  a  single  spherical  particle  of  arbitrary  size  and 
ox  refraction,  which  may  be  complex.  The  general  theory  specifies  amplitude,  phase, 
and  polarization  as  a  function  of  scattering  angle.  The  Mie  solution  has  been 
to  describe  the  scattering  by  an  array  of  particles  simply  by  summing  fixe  scattering 
contributions  from  each  individual  particle  In  the  array,  anr!  computer  codes  exist  for 
performing  such  calculations.  Such  an  approach  tacitly  neglects  the  effects  of  multiple 
scattering,  and  ’nan curacies  also  arise  from  fixe  difficulties  in  specifying  the  number 
and  size  distribution  of  the  aerosol  particle  array  and  the  effective  indexes  of  refrac¬ 
tion  of  the  particles.  Such  measurements  have  been  made,  however  [2-34],  [2-35], 
and  distribution  models  have  been  developed  for  general  use  [2-22],  [2-36],  ftnnrt 
Nella  notes  that  the  models  lead  to  discrepancies  in  atmospheric  water  content  [2-35]. 
(U)  Sullzlch  [2-37]  and  Nella  [2-35]  have  both  maHw  extensive  scattering  profile  mea¬ 
surements  in  actual  atmospheres  at  ground  Isvei,  and  their  rwsnitg  are  generally  con¬ 
sistent  with  Mie  calculations.  Results  from  Nella'  3  measurements  axe  shown  in 
Figures  2-23  and  2-29  for  wavelengths  of  1.  06  ptm  and  10. 6  um  respectively.  The 
graphs  show  fixe  composite  plots  for  numerous  measurements. 

(U)  Nine  of  the  eleven  measured  curves  of  Figure  2-2S  fell  in  fixe  cross-hatched  * 
region.  Curve  A  reflects  conditions  of  very  low  humidity  (24%)  anrf  extremely  good 
visibility  p>  40  km).  No  unusual  meteorological  conditions  were  observed  when  curve 
3  was  measured.  Tie  curves  of  Figure  2-28  are  consistent  with  Mie  -ma> 

by  McClatchey  at  al  [2-2 2]  as  shown  in  Figure  2-30.  A  calculation  at  1. 06  ptm  would 
fall  in  between  the  two  curves  shown.  Moreover,  caasi-simultaaeous  measurements 
at  six  different  laser  wavelengths  between  0. 47  ^m  and  1.  06  fim  by  Nella  yielded 
scattering  functions  similar  to  Figure  2-23  and  w<*Vw  a  factor  of  two  of  each  other. 

( U )  Fourteen  different  measurements  were  used  to  die  composite  curve  of 

Figure  2-29  for  10. 3— am,  CO2  laser  radiation,  and  only  one  anomalous  result  was 
recorded.  It  is  shown  dotted.  The  ma]or  distinction  between  these  curves  those 
at  shorter  wavelengths  lies  in  the  less  pronounced  forward  scattering  peak  and  the 
absence  of  an  increased  backs  cotter  component  beyond  120°,  fixe  so-called  glory.  This 
is  a  general  behavior  associated  with  scattering  when  the  particle  sizes  are  less 
the  wavelength.  The  ultimata  limit  is  the  Rayleigh  scattering  distribution  due  to 
molecular  scattering,  also  shown  in  Figure  2-30. 
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(U)  Generally  speaking,  as  particle  sizes  increase,  forward  and  back  scattering  at 
a  given  wavelength  becomes  more  pronounced,  and  die  distribution  is  generally  more 
structured.  For  example,  rainbows  resuit  from  large-particle  scattering  [2-331. 

(U)  For  dear  weather  conditions  scattering  functions  like  dose  of  Figures  2-2S  and 
2-29  cover  the  majority  of  cases  encountered.  Because  me  scattering  distribution 
function  is  normalized,  an  increase  in  forward  scattering  must  be  compensated  by  a 
decrease  in  Scattering  intensity  is  therefore  much  more  sensitive  to 

extinction  coefficient  dan  disrribufion  function. 

(TJ)  Very  little  data  has  been  compiled  on  scattering  from  fog  or  rain.  A  truly  useful 
fog  model  must  account  for  multiple  scattering  effects,  which  have  not  been  considered 
here.  However,  Sullrich  cid  make  scattering  distribunca  measurements  in  fog,  which 
exhibit  the  pronounced  forward  and  back  scatter  characteristics  noted.  No  measured 
scattering  profiles  for  rain  were  found  dough  Gumprecht  et  al  [2-38]  provide  calcula¬ 
tions  for  such  a  case.  Chu  and  Hogg  [2-39]  have  » gamin rain  particle  size  distribu¬ 
tions  and  densities. 
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Figure  2-28.  Composite  or  Normalized  Scattering  Functions  at  1.06  urn 
Measured  by  Neila  [2-35] 
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Figure  2-30.  Normalized  Scattering  Distribution  Functions  Calculated  Using  Mie 
Theory  for  Aerosols  with  X  *  0.4  pm  and  X  »  2  iim.  The  Rayleigh  molecular 
scattering  distribution  function  which  is  independent  of  wavelength  is  also  shown. 
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Section  2  -  Data-Base  Reviev  and  Model  Formulation 
Subsection  D  -  Scattering  Mechanisms 

9.  BSCET7ES  3ACSSCATTSS  -  THEORETICAL  MODELING 

(IT)  A  complex  distribution  of  backscattered  radiation  can  result,  consisting  of  both,  specular 
and  diffuse  components*  arising  from  backstop  or  housing  reflections*  window  reflections,  and 
reflections  from  the  receiver  and  its  optical  components. 


(Cl  The  basic  approach  to  modeling  backs  came  red  radiation  is  very  similar  to  that 

used  for  modeling  port  scatter  except  that  we  assume  an  angle  >p  between  the  incomic? 
beam  and  the  normal  to  the  structure  housing  or  backstopping  the  receiver.  The 
scenario  which  must  be  modeled  is  illustrated  in  Figure  2 -31. 

;v>  Consideration  must  be  given  to  a  typical  spot  size  of  the  received  radiation. 
Commercial  optical  communication  systems  vary  significantly  in  beamwidth  and  useful 
range*  but,  of  the  numerous  such  systems  listed  in  Table  2-3,  all  appeared  to  project 
a  spot  size  in  excess  of  10-m  diameter  at  their  nominal  operaring  ranges,  in  some 
cases  significantly  larger.  Consequently,  the  radiated  area  depicted  In  Figure  2-31 
will  usually  be  much  larger  than  a  typical  window.  It  is  also  assumed  that,  for  a 
radiation  from  the  main  lobe  will  not  be  allowed  to  pass  behind  the 
receiver  in  an  uncontrolled  manner. 

(U)  The  major  portion  of  backs  carter  will  therefore  be  that  reflected  from  the  strut 
tare,  or  from  a  backstop  if  the  receiver  is  not  enclosed.  Typical  structural  materials 
will  reflect  somewhat  diffusely  with  a  moderate  specular  component.  With  f  the  angv  - 
lar  variable  referenced  to  the  building  normal,  we  generally  define  this  reflectance  i  i 
‘  terms  of  Nicodemus'  bidirectional  reflectance  distribution  function  (BHD?)* 

P^f)-  y^/P^gCOS*  (2-67) 

where  Ib(£ )  is  the  intensity  of  the  backscattered  radiation  in  the  direction  ;  due  to 
Pine,  the  total  optical  power  on  the  building.  For  complete  generality  it  is  necessary 
to  consider  incident  and  reflected  rays  at  angles  i  and  f  which  are  non-cop!  anar. 


”  (U)  Much  of  the  data  available  and  presented  in  the  following  discussion  is  expressed 
-  in  terms  of  the  direchonal  reflectivity  rQ(*) ,  where 

rb(!>  -^<1)  cos*  -  yil/P^c- 

We  prefer  BRDF  and  use  ithere  because*  as  mentioned  earlier,  it  is  a  constant 
independent  of  scattering  angle  for  a  perfectly  diffuse  reflector  and  consequently 
convenient  for  programming. 
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i gore  2*31.  The  Backscatter  Scenario.  The  building  or  backstop  will  provide  primarily  diffuse 
Section,  the  window  a  specular  gust  at  9  '  **  2^,  and  die  receiver  a  retro-reilec ted  OA  compon- 
nc,  all  at  which  must  be  considered. 


UNCLASSIFIED 


2-«3 


Kaicii 


(IT)  Expressing  (2-67)  in  terms  of  a',  a  variable  angle  referenced  to  the  link  axis, 
instead  of  * , 


pb-  4)  -  Z^WP^cos  (S'  -  4). 


(2-6<3t 


Wfth  ^iac*  <*Z)  *or  1  ^  length  Z, 


W*">‘ 


PQ  P^(9’^ )  cos  (S'  -  o)  exp  (-«Z)  for  6'  -  ij<90° 


(2-39) 


[0  otherwise. 

Again,  the  exponential  form  of  (2-63)  must  be  used  if  or  varies  significantly  along  Z. 


(U)  We  have  neglected  the  minor  difference  in  spot  area  and  reflectance  one  to  the 
presence  of  a  window  in  (2-67)  since  its  area  wonid  typically  be  much  smaller  than 
that  of  the  spat.  Specularly  reflected  components  from  the  window  can  be  considered 
separately  by  including  diem  in  the  function  pb>  This  component  of  intensity  should 
generally  be  much  smaller  than  that  from  die  building  since  die  reflectance  from  glar.s 
is  law  compared  to  that  from  the  structure  surface,  and  the  incident  power  on  the  win¬ 
dow  is  scaled  by  the  ratio  of  die  window  area  to  dm  beam  spot  size;  but  its  specular 
nature  requires  that  It  be  included.  The  common  use  of  the  Dlzac  delta  function  to 
describe  specular  components  would  be  incompatible  with  a  computer  calculation.  We 
shall  use  instead  a  condimnua  model  which  is  highly  peaked  in  a  direction  9 '  -  2-4  with 
S'  in,  the  same  plane  as  4. 

(Cr»  Another  specular  component  of  interest  is  the  so-called  optically  augmented  (Oa) 
return  from  the  receiver  aperture  itself.  The  intensity  of  this  reflection  must  be 
separately  characterized  as 


iqa(9')-  5OA(9’)  COS  «*  Ar/ir(dt/2)22  (2-70) 

where  Ay  is  the  receiver  aperture  area  and  oqa  is  defined  analogous  to  o^  in  (2-68). 
The  v  -  dependence  is  absent  for  the  OA  return  since  the  receiver  aperture  is  neces¬ 
sarily  normal  to  the  link  path.  The  small  value  of  Ar  compared  to  the  spot  size,  and 
the  narrow,  regorefiected  nature  of  the  OA  beam  indicate  that  this  component  will  not 
be  accessible  to  a  receiver  at  an  appreciable  ofi-axi s  angle.  It  should, 

however,  be  considered  as  an  additional  source  which  may  be  scattered  from  the 
atmosphere. 


([/)  Analogous  to  (2-61)  and  with  reference  to  Figure  2-3  the  total  power  scatterec 
from  the  receiver  into  the  receiver  may  be  e^ressed  as 

]V9i’  *)  +  rOA(*i  >J  «?  HxH^  As/3r2 

pr{V*)  *  '  tj3T  *r*  ^sh/2  a  *i  58  *-  "  2  (2-71) 

0  otherwise 

where  S.  is  the  range  from  the  link  receiver  to  toe  8,'f  -  a  receiver. 
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Section  2  -  Data-Base  Review  and  Model  FornuiaEiou 

Subsection  D  -Scattering  Mechanism 

10.  RSCSCVSa  3ACXSCATTZR  -  MEASUREMENT  DATA 

(U)  A  review  of  reflectance  data  for  a  variety  of  wavelengths  indicates  that  most  real-world 

cases  can  be  modeled  by  assuming  the  combination  of  a  simple  Lambertian  diffuse  element  and 

a  gaussian  specular  element. 

(XT)  In  specifying  the  reflection  characteristics  of  a  backstop  material  in  terms  of  its 
bidirectional  reflectance  distribution  function  (3EDF)  Pb»  thxee  different  aspects  must 
be  considered:  the  wavelength  dependence  of  the  material's  reflectance,  surface  rough¬ 
ness  characteristics  of  the  material,  and  the  BRDF’a  dependence  on  the  direction  of 
die  incident  radiation. 

(IT)  The  wavelength  dependence  of  the  reflectance  depends  on  the  detailed  absorption- 
band  structure  of  die  material,  and  because  of  the  wide  variety  of  materials  which 
must  be  considered  and  the  fact  that  most  are  chemically  inhomogeneous  (e.  g. ,  con¬ 
crete)  an7  attempt  at  modeling  their  absorption-band  properties  is  unrealistic.  We 
therefore  rely  instead  on  measured  reflectance  data. 

(ID  The  complexity  of  die  BHDF's  dependence  on  surface  roughness  and  incident 
beam  direction  is  best  illustrated  by  an  example.  Shewn  in  Figure  2-32  is  a  series  of 
reflected-radiatlon  profiles  (isointansity  contours)  for  aluminum  polished  with  600- 
grit  silicon  carbide  illuminated  at  various  angles  by  a  HeNe  laser  [2-40].  The  pro¬ 
files  exhibit  a  pronounced  but  rather  broad  specular  peak,  a  smaller  diffuse  compo¬ 
nent.  a  moderate  backs catter  lobe,  and  an  aaomoiocs  array  of  smaller  lobes.  Other 
materials  will  exhibit  these  same  characteristics  but  in  varying  degrees. 

{ U)  Modeling  these  geometric  attributes  of  a  material  to  theoretically  establish  its  ' 
reflection  profile  is  reasonable  for  most  homogeneous  materials,  and  several  models- 
have  been  proposed.  However,  there  is  a  wide  disparity  in  the  nature  of  the  theoretical 
approaches  taken  (though  a  careful  comparison  might  show  that  the  seemingly  diverging 
approaches  are  La  hum  identical).  Shack  and  DeBeil  [  2-41]  and  Shack  and  Harvey  [2-42] 
use  the  techniques  of  Linear  systems  theory  to  treat  the  reflection  profile  from  a  sur¬ 
face  with  a  given  statistical  height  distribution  and  autocovariance  function  as  an  angu¬ 
lar  spectrum  of  plane  waves.  Using  a  ray-ootics  model  Trowbridge  and  Reits  [2-43] 
treat  the  surface  as  an  ensemble  of  randomly  oriented,  randomly  curved  micro  areas 
and  show  that  an  optically  smooth  curved  surface  of  revolution  can  be  chosen  which  will 
give  the  same  distribution  of  reflected  Light  as  the  actual  surface.  Sauermann  and 
Waterman  [2-44]  do  a  Fourier  decomposition  of  the  surface  and  consider  the  reflectic_ 
(diffraction)  properties  of  each  sinusoidally  corrugated  surface  component  separately, 
and  they  in  addition  include  the  effects  of  shadowing  of  the  corrugated  surface  on  non- 
oo rm ally  incident  rays,  as  illustrated  in  Figure  2-32. 

(ID  All  of  these  approaches  assume  slagie- valued  surface  profiles  and  homogeneous 
material  characteristics.  However,  disregarding  these  minor  limitations  the  difficulty 
with  any  of  the  approaches  Ls  that  they  all  must  eventually  rely  on  measured  data,  tftat 
is,  the  surface  roughness  properties.  Nevertheless,  they  do  provide  a  means  for  de¬ 
termining  reflection  profiles  if  surface  roughness  and  material  properties  can  be  esti¬ 
mated  reasonably. 

(ID  Actual  3 RDF  measured  data  are  rather  scarce.  The  wide  range  of  background 
materials  which  must  be  considered,  and  the  inconsistency  of  results  for  a  given 
material  (e.  g. ,  wood)  leads  experimentalists  to  consider  laboratory  environments  over 
which  they  have  more  control  rather  •-‘•wa  real -world  environments.  Natural  materia 
are  irequemiy  treated  as  perfectly  diffuse  reflectors,  in  which  case  the  3RDF  p^  is  a 
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Figure  2-35.  (U)  Typical  Reflectances  of  Vegetation,  Wood  and  Straw  [2-4-6  ]  (U) 
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Figure  2-36.  (U)  Typical  Reflectances  of  Water  Surface,  Snow,  Dry  Soil  and  Vegetation  [2-46]  (U) 
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Figure  2*37.  (U)  Special  Reflectance  of  Six  Terrain  Features  in  die  1-15  fin 
Region  [2-6]  (U) 
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Figure  2-38.  (U)  Spectral  Reflectance  of  (a)  ideal  masonry,  No.  130  (red),  (b)  ideal  masonry,  So. 
170  (green),  exterior  masonry  paint  (Ideal  Chemical  Products  Inc)  [2-6]  (U) 


Figure  2-39.  (U)  Spectral  ReHecance  of  Asuhairic  Road  Material,  SC-4  (Standard  Oil  Comoauv  of 
California)  [2-6]  (U) 
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baseline  profile.  It  was  snows.  that  classical  error  analysis  techniques  could  not  be 
spoiled  ax  das  point  in  time,  cue  to  the  'at*!?  of  an  adequate  amount  of  ^ata  and  the 
complexity  of  the  problem,  so  die  sensitivity  analysis  represents  a  reasonable  means 
to  quantise  the  effecs  of  possible  uncertainty.  A  space- co-ground  model  was  developed 
widen,  although  limited  in  capability,  is  an  i-mccr^rr  first  step  in  developing  a  gen¬ 
eralized  model.  Lastly,  a  detailed  solar  background  model  was  included  which  takes 
into  account  the  line  structure  of  the  solar  spectrum  and  its  modification  by  the  atmos¬ 
pheric  transmission  characteristics. 

In  reviewing  the  capabilities  of  the  program  several  improvements  would  appear 
to  be  helpful  in  future  analyses.  These  include: 

•  Development  of  a  performance  evaluation  code  to  determine  the  impact  of 
security  measures  on  link  performance. 

•  Development  of  an  atmospheric  program  from  existing  codes  to  generate 
tables  of  coefficients  air  any  wavelength  and  atmospheric  absorption  line 
shape,  and  to  also  generate  the  scattering  distribution  function  using  a 

•  Development  of  a  separate,  comprehensive  space-to-ground  model.  The 
space- to-ground  case  is  a  more  complex  problem  to  treat  than  'narrow- 
beam1  Irnkw- 

e  Expansion  of  LACM  2.  0  to  allow  more  detailed  modeling  of  scenario  character 
lstics.  This  will  require  a  thorough  analysis  of  data  and  will  likely  produce  a 
very  large  program,  considering  he  data  requirements  and  preliminary 
schemes  developed. 

e  Development  of  a  classification  system  for  classifying  link  type  and  scenario 
combination  to  produce  'roles  of  thumb'  in  estimating  link  security.  This 
would  be  accomplished  by  parametric  analysis  using  the  program. 


TABLE  3-1.  FLATUSES  OF  TTTg  ECXSTSOM 
COMPUTES  MODEL,  LACM  2. 0 


General 

Features 

•  Interactive 

•  Modular 

•  Flexible 

•  Pseudo  3-D  carved  earth 

•  Improved  ahnospberic  model 

•  Flexible  port  scatter  model 

•  Flexible  receiver/backstop  model 
e  Improved  beamscatter  algorithm 

Specific 

e  SNH  or  power  computational  capability 

Features 

•  Detailed  solar  background  model 

•  Modes  to  simplify  geometry 

4  Contour  generation  capability 

•  Sensitivity  analysis 

•  Space  to  ground  capability 
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Section  3  -  The  Computer  Model 

Subsection  3  -  description  of  Mathematical  Models 

1.  NAEB0W-3EAM  ANALYSIS  GEOMETRY 

(U)  Tbs  analysis  of  link  beam  scarier  where  the  link  beam  diameter  Is  negligible  in 
comparison  so  the  oxf-exis  distance,  termed  narrow-beam  analysis,  is  based  taon  power 
with  beam-shape  power  versus  orf-axts  distance)  effects  neglected. 


Hjf)  Tie  narrow-beam  link  is  a  point-to-point  link  over  a  curved  earth  as  presented 
in  Figure  3-1.  Tie  altitudes  above  sea  level  can  range  upward  from  -1000  meters  to 
exo-annospheric  altirrces.  Tie  distance  between,  lie  link  transmitter  and  link  receiver  • 
is  the  link  range,  EL.  Tie  ■»  *  vs  e  receiver  (SR)  location  is  defined  in  terms  of 
a  cylindrical  coordinate  system,  with,  tie  transmitter  at  lie  origin  and  lie  link  beam  - 
coincident  wife  fee  axis  of  symmetry.  The  e  receiver  location  is  specified 

by  fee  coordinator  EFN  (axis  of  symmetry  coordinate),  X  (range  orthogonal  is  of 
symmetry),  and  GAMINT  (angular  coordinate).  GAMINT  (7iat) 13  defined  sack  feat  0° 
r»eff.«g«  a  horizontal  half  plane,  =  130°  fee  opposite  half  plane,  wife  90°  being  fee 
upper  vertical  half  plane  of  a  horizontal  link.  (Note  feat  fee  radial  distance  X  is 
oarallel  to  a  tangent  of  fee  earth's  surface  at  its  intersection  wife  fee  link  beam  for 
GAMEiT  =  0°  or  130°. ) 

(XT)  The  concept  of  fee  intercept  plane  is  very  important  to  grasp  in  order  to  fully 
appreciate  fee  definition  and  description  in  this  report.  '  The  intercept  half-plane  is 
defined  as  feat  half-plane  whose  edge  coincides  wife  fee  link  axis  and  contains  fee  SR. 
Thus  there  is  a  half-plane  at  ■  0°  and  *  1300  which  may  have  different  inter- 
cep ability  profiles  (L  e. ,  they  may  not  be  minor  Images)  in  each  half-plane. 

(XI)  Figure  3-2  shows  the  intercept  half-plane  geometry,  including  fee  orientation  of 
the  SR  in  fee  plane.  The  SR  is  assumed  to  be  looking  at  a  portion  of  the  beam  specified 
by  THETA,  fee  ofl-aris  angle.  Note  that  THETA  is  not  necessarily  the  angle  subtended 
by  the  SR  and  link  axes  at  the  transmitter,  but  the  angle  subtended  at  fee  scattering 
volume.  In  order  to  simplify  and  minimize  the  amount  of  geometry  required  of  fee  user, 
several  modes  were  designed  which  obtain  a  profile  of  fee  link  scatter  using  only  one  or 
two  geometric  parameters  for  fee  whole  sec.  These  are  described  in  fee  User's  Gui~je 
later  in  this  section. 

(XT)  The  computer  model  uses  a  curved  earth,  and  fee  equations  for  calculation  of 
ranges  and  altitude  of  points  are  cumbersome.  They  axe  derived  using  fee  geometry 
In  Figure  3-3.  Using  the  law  of  cosines  and  solving  for  each  of  fee  required  variable 
leads  to 


HP 

DP 

E 


[<R£+HT>2  +  H2  ♦  2  (BE+3T)  S  cos  (DP)]  1/2  -  BE 

„-i  f  fRS+gp> 2  -  raz+gp2  -e2  X 

TOa  1  2  (B£+HT)B  J 

[(BE+ST)2  cos2  (DP)  -  (E2^3T)2  +  (BS+HP)2]  1/2 


-  (EE+ST)  cos  (DP) 


3-2 


These  expressions  are  used  in  fee  routines  TSEAE2  and  SETUP.  If  fee  geometry 
specified  by  the  user  is  such  feat  fee  bottom  cf  fee  link  beam  touches  the  earth  between 
fee  transmitter  and  receiver,  a  warring  is  printed  cut. 
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Figure  3-1 .  Ulussasion  of  Narrow-Beam  Link  Geometry.  The  inter  cent  half  plane  has  the  link 
as  its  edge,  and  contains  the  SR.  Ac  the  intersection  of  the  link  axis  and  the  (GAMINT)  ref¬ 
erence  axis,  the  reference  axis  is  cangent  to  the  earth’.*  surface. 
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Figure  3-2.  Intercept  Half-Plane  Geometry.  Note  chat  this  haif-piane  may  be  rocated  about  the  link 
axis.  The  scattering  volume  is  defined  by  the  SR  field  of  view  PHI  and  orientation  THETA. 


UNCLASSIFIED 


c-sccea 


^CLASSIFIED 


Figure  3*3.  Geometrical  Model  Used  to  Derive  Earth  Cur¬ 
vature  Effects. 
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Models 


(U)  A  3  imp  Is  model  based  on  empirical  data  was  developed  to  account  for  port  scatter  a nri 
the  effects  of  baffles. 


fli\P)  The  link  transmitter  is  a  significant  3ourse  of  off-axis  radiation.  Due  so  differ- 
“  /ecces  in  transmitter  designs  and  quality  of  optics  a  variety  of  scattering  profiles  can 
be  postulated  for  a  link  transmitter,  presenting  a  problem  in  modeling  the  off-axis 

scatter.  _ 

(C)  The  transmitter  model  assumes  a  beam  divergence  angle  PHCT  (<t>+),  supplied 
by  the  user.  If  the  user-supplied  t>*  violates  the  diSraction  limit,  a  warning  is  printed. 
Also  required  are  the  optical  power'out  the  lens  PT,  and  the  lens  diameter  DT.  For 
cases  involving  hooding,  the  hood  diameter  and  length  are  required.  The  optics  are 
assumed  circular.  Figure  3—4  illustrates  the  link  transmitter. 

(U)  Lens  hooding  Is  simulated  by  a  simple  model  that  assumes  a  hood  arbitrarily 
larger  than  the  beam  diameter,  neglects  diffraction  by  the  hood  (which  is  reasonable 
when  the  hood  only  touches  the  3l delobes)  and  assumes  a  totally  absorbing  hood  interior. 
Thns  the  scatter  at  a  given  angle  is  reduced  by  the  percentage  of  the  aperture  that  is 
hidden  by  the  hood.  Figure  3—4  illustrates  the  behavior  of  this  function  for  several  dif¬ 
ferent  aperture  size  to  hood  diameter  ratios.  The  case  of  equal  hood  diameter  and 
aoertnre  size  is  the  same  as  the  optical  transfer  function  of  an  ideal  circular  aperture 
[3-1],  .  s 

(U)  The  components  of  transmitter  off-axis  radiation  can  be  separated  into  a  dif-  . 
fracted  portion  (sidelobes)  and  a  portion  scattered  from  the  optical  materials,  which 
includes  surfaces  and  bulk  scattering  of  the  lenses.  At  optical  wavelengths  with  typ  jcal 
apertures  the  sidelobe  structure  is  extremely  fine,  so  an  expression  for  the  side  lobe 
envelope  as  shown  in  Section  2  is  used  instead: 

or  ,3  “>8- 

(XT)  The  bulk  and  surface  scatter  is  treated  using  a  bidirectional  scattering  distri¬ 
bution  function  (BSDF),  as  is  developed  in  the  literature  and  discussed  in  Section  2. 
Empirical  relationships  for  the  BSDF  obtained  mom  experimentation  with  various  op¬ 
tical  flats  and  lenses  show  that  the  function  is  roughly  linear  in  log  space.  Figure  3-5 
illustrates  a  typical  carve  for  in  optical  flat.  As  can  be  seen  the  slope  is  approximately 
-2.0,  and  the  value  at  one  degree  is  2x1 0"*3.  Also  shown  on  the  figure  is  a  system  BSDF 
which,  although  sot  representing  a  particular  system,  is  typical  in  form  of  die  exper¬ 
imental  data  available  on  existing  transmitters.  As  can  be  seen,  the  function  is  roughly 
a  straight  line,  with  the  exception  of  several  'glitches'  which  could  be  due  to  internal 
reflections  peculiar  to  1  particular  design.  Thus,  apart  from  the  giitches,  the  BSDF 
can  be  eagjressed  as 

BSDF  (©)  *  A  63 

where  A  is  the  value  of  the  BSDF  at  one  degree,  Q  the  off-axis  angle  in  degrees,  and 
3  the  slope  of  die  curve. 

riT)  The  ’glitches'  can  be  accounted  for  by  using  a  tixed  value  for  the  BSDF  at  the 
glitch.  Thus  the  user  of  die  program  must  detine  (for  each  glitch)  the  starting  angle. 
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Rgure  3-4.  Fra  cion  of  Exit  Aptrrare  Visible  u  a  Function  of  Normalized  Off-Axis  .Angle  9 1$ 
for  Three  Ratios  of  Hood  to  Optics  Diameter.  Past  9  no  scatter  trom  optics  is  visible. 
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(XT)  amplitude,  a ad  ending  angle  of  the  glitch.  Up  to  three  glitches  can  be  input.  The 
sample  3SDF  carve  shown  in  die  figure  is  what  the  program  would  use  i£  the  user 
specified  a  glitch  from  1. 7  to  2. 7  degrees  with  an  amplitude  of  2x10“ ^  sr"L. 

(XT)  If  the  3SDF  to  a  system  is  known,  the  3SDF  snhrotafne  can  be  easily  replaced 
by  a  user-supplied  function  interpolating  the  experimental  data.  However,  a  good 
estimate  of  the  transmitter  scatter  can  be  obtained  for  many  3SDF  carves  using  the 
built-in  model. 


>4 


UNCLASSIFIED 


ttSUF  ISA 


^CLASSIFIED 


Figure  3-5.  BSDF  Currea  for  an  Optical  Flat  and  a  Hypothetical  System.  Showing  the  Computer 
Model's  Approximate  Fit. 
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Section.  3  -  The  Computer  Model 

Subsection  B  —  Description  of  Mathematical  Models 

3.  LINK  HEC2T7SH  AND  BACKSTOP 

(U)  The  reflection  from  the  link  receiver  and  backstop  axe  of  significance  due  to  their 
location  in  the  main  beam.  A  model  Is  described  which  accounts  for  diffuse  and  specular  ' 
reflections  from  the  receiver/backstop  combination. 


(U)  The  link  receiver  is  assumed  to  be  collocated  with  a  backstop  (which  can  be  posi¬ 
tioned  in  any  oxier.tr—cn).  Figure  3-6  illustrates  the  arrangement  along  with  the  angu¬ 
lar  conventions  used  in  the  program. 

(U)  The  diameter  of  the  optics  and  hood  diameter  and  lengths  are  input  to  the  pro¬ 
gram,  and  the  scheme  is  identical  to  that  oz  the  transmitter  model,  i.  e. ,  die  scatter 
off  the  receiver  aperture  is  assumed  to  be  propordooal  to  the  visible  area.  The  back¬ 
stop  is  assumed  to  be  large  enough  to  block  the  main  beam,  and  may  be  oriented  in 
elevation  angle  by  specifying  PSEL  ( bgU  which  is  the  elevation  orientation  of  the 
normal  relative  to  the  0°  or  130°  Intercept  plane.  Azimuth  orientation  is  accomplished 
by  specification  of  PSLAZ  ($az)'  which  is  the  angle  of  the  projection  of  die  normal  of 
the  backstop  onto  the  0°  (positive  or  130°  (negative  intercept  plane  with  the 
Unk  optical  axis.  Figure  3-7  illustrates  ihese  angles,  along  with  the  specularly  re¬ 
flected  component's  ray.  For  an  arbitrary  orientation  of  the  backstop,  the  direction 
of  die  specular  component  Is  given  by  specifying  which  intercept  plane  it  lies  in.  The 
intercept  place  angle  y,-nt  is  given  by 


int 


frtn 


-1 


SlM»AZ  ■  COT  »_L 


The  above  expression  will  cot  give  values  from  -130°  to  +130°,  but  only  from  -90°  ta 
-900,  so  the  FCRT3AN  function  ATAN2  is  used  in  the  program  to  yield  the  correct 
half-plane  orientation.  This  angle  is  printed  out  for  the  user  in  the  input  summary  so 
he  may  be  informed  of  which  intercept  plane  to  run  to  get  the  specular  component 
'worst  case* . 

(U)  Two  expressions  are  used  to  model  the  directional  reflection  distribution  of  the 
backstop,  as  discussed  in  Section  2.  The  simplest  of  these  is  a  Lambertian  reflection 
model  which  corresponds  to  a  diffuse  reflector,  containing  no  specular  component. 
The  expression  for  the  backstop  directional  reflectance  (3RDF)  In  this  case  is  a 
constant  independent  of  angle  given  by 

<t,  • T"1  »d 


where  p,j  (BDETF)  is  the  total  diffuse  reflectance  of  the  backstop.  The  more  compli¬ 
cated  model  allows  a  gaussian-shaped  specular  component  along  with  a  diffuse 
(Lambertian)  component.  In  this  case  the  full  width  of  the  specular  component  at  half 
maxtmua  3  9  (Bi'WhMS)  is  input  in  degrees,  along  with  the  peak  value  of  the  specular 
and  diffuse  componena.  The  expression  for  HRDF  is  hen 

f 

*j(6)  ■  T_i  pd*A3p«=pi-iln2  (6-2  3  )2/((5  6)2' . 
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Figure  5-6.  Illustration  of  Major  Features  of  Backstop /Receiver  Geometry.  The  backstop  is  cited  up 
at  an  angle  -jipT . 
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(U)  where 

p.  (3DT7T)  •  total  diffuse  directional  reflectance  of 
a  backstop  (0  Sp^  si) 


A_  (SMAJCS) 
SP 

f  (PSE2FF) 


peak  specular  reflectance  of 

backstop  (0  sA  <  ») 
sp 

angle  between  incoming  beam  and 
backstop  normal 


ae(BFWH3iS) 


fWHM  of  specular  component. 


(O  Thus  the  power  at  the  SR  due  to  the  reflection  is  given  by 


p  .  °ng  TA-0h  <9^  °°»  9. 

s  ■> 

V 

where  is  the  power  incident  on  die  backstop 

T  is  die  transmittance  from  the  receiver  to  the  SR 
Ar  is  the  SR  entrance  aperture  area 
0^0^  is  the  3HDF  at  the  angle  ©r 

9r  is  the  off-asis  angle  from  die  receiver  to  the  SR 
Rr  is  the  range  from  the  receiver  to  the  SR. 

fU)  The  reflection  off  the  receiver  optics  uses  an  Identical  model  to  the  specular/ 
rfiflhae  com  hi  nation  model  of  the  backstop.  However,  in  this  case  the  specular  com 
pa  near  is  narrow  and  the  diffuse  component  is  small.  The  smaller  amount  of  power 
incident  on  the  optics  (as  compared  to  the  backstop)  and  the  fact  that  its  reflections 
retro  reflected  primarily  down  the  link  a sis  make  the  receiver  optics  scatter  much 
smaller  than  drat  of  die  backstop,  so  the  program  defaults  are  set  to  ignore  receive 
scatter.  However,  the  user  has  the  option  of  introducing  the  components. 
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Figure  3-7.  Geometry  Reiadng  Angle  of  Backstop  Normal  to  Incoming 

Vmi  Angle.  The  vector  representing  the  specular  reflection  peak  is  in  the 
plane  common  to  the  beam  axis  and  the  backstop  normal.  In  this  case  yet 
is  negative  and  4i  jg.  **  positive. 
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Section  3  -  T he  Computer  Model 

Subsection  3  —  Desczipacn  of  Mathematical  Models 

4-  o  ff-  A*  US'  .  RECEIVER  AND  3ACKGROCND 


Pa  CkW--«>\a  a  receiver  model  includes  specifications  of  detection  type  and  3ensiti-  lty. 
model  is  discussed  in  light  of  expressions  used  in  the  program  and  the  background  model 


is  described. 


.fjj  Tie  receiver  (SR)  is  only  characterized  sufficiently  to  obtain  the 

desired  output.  For  example,  a  power  computation  only  requires  tie  aperture  area 
(ASR)  and  tie  field  of  view  (FOV)  in  the  intercept  half  plane,  as  the  background  power 
is  not  required,  and  the  FOV  in  the  cross-beam  direction  is  assumed  large  enough  to 
intercept  the  entire  width  of  the  link  beam. 

(U  )  In  contrast,  the  expression  for  direct-detection  sigaal-to-aoise  ratio,  developed 
in  Section  2,  is 


where 


Ps  (PS)  »  signal  power 

M  (32d)  »  modulation,  depth  of  signal 


3  (3W3)  »  SR  electrical  bandwidth 


q  (ETA)  »  quantum  efficiency  of  the  detector 

X  (ALAM)  «  wavelength 

h  (H)  ■  Planck's  constant 

c  (C)  *  speed  of  light 

?b  (PB)  ■  background  power 

(U)  Several  parameters  deserve  special  consideration,  in  particular  the  NEP  and 
background  power.  The  NS?  Is  described  here  as  the  noise  power  "with  the  lid  on". 
Tins  this  figure  characterizes  the  entire  SR  detection  system,  including  gain  from  a 
device  such  as  a  photomultiplier  tube,  but  it  does  not  Include  background  noise  effects. 
The  background  power  is  calculated  based  on  the  wavelength,  and  day  /night  and  meteor¬ 
ological  conditions  have  a  very  strong  influence  on  the  SNR  observed. 

(U)  The  background  model  used  is  the  program  is  composed  of  an  earth  blackbody 
curve  and  a  solar  irradlance  table.  The  blackbody  curve  is  only  significant  is  the  raid- 
to  far-CR  asd  uses  die  classical  blackbody  radiation  expression  discussed  in  Section  2. 
The  solar  background  is  a  line  model  taken  from  Cast  [3-21.  The  program  interpolates 
to  get  the  solar  irradiates  assuming  an  optical  air  mass  of  2.  and  the  table  induces 
the  solar  Use  structure  asd  atmosphere  transmission  characteristics.  A  sunny  day, 
cloudy  day  or  night  condition  are  the  optic  ns  available  to  the  program  user. 
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(U)  la  the  case  of  heterodyne  detection  the  signal -to -noise  ratio  Is  given  by 

a  7  — ^  \f”0 

N  ^  hc3  S 

where 


hi 

(EM) 

s  local  oscillator  mixing  efficiency 

n 

(ETA) 

s  detector  qnantam  efficiency 

\ 

(AIAM) 

*  wavelength 

3 

(BWR) 

3  SS  electrical  bandwidth 

h 

(H) 

3  Planck's  constant 

c 

(C) 

*  speed  of  light 

M 

(XM) 

*  modulation  factor 

ps 

(PS) 

3  signal  power. 

In  goieral  this  expression  only  represents  the  I?  SNR,  though  in  some  cases  it  may 
also  represent  the  video  SNR.  It  should  therefore  be  used  with  care,  especially  when 
radiometric  detection  is  being  evaluated.  The  mixing  efficiency,  which  can  have  a 
wnTi-mrnw  valse  of  0. 7,  may  also  be  lower  in  a  practical  system.  Moreover,  coherence 
requirements  may  be  only  partially  met  in  a  random  geometry.  The  calculated  hetero¬ 
dyne  SNR  is  thus  felt  to  be  of  only  marginal  validity. 
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Section  3  -  Tile  Compusr  Model 

Subsection  B  —  Description  of  Mathematical  Models 

3.  ATMOSPHERIC  MODELS 

(U)  Atmospheric  effects  clay  a  major  role  in  die  inter  ceptdbility  profiles  of  narrow-beam  Links. 
The  scattering  and  transmission  models  are  discussed  in  this  topic. 


(U)  Equation  2-66,  the  expression  derived  for  atmospherically  scattered  poorer  in 
Section  2,  is  developed  for  use  in  the  computer  model  in  an  equivalent  differential  form 


as 


p  A  a  da  T.T„ 

0  3  3  3  1  2 


F(*) 


R.sitt^ 


where 


(ST) 

(AS2) 
(ALFSCT) 
(DP  HD 
(Tl) 

(T2) 


■  lick  transmit  power 

a  SR  apermre  area 

»  atmospheric  scattering  coefficient 

*  element  of  SR  ?0V  along  beam 

»  atmospheric  transmittance  from  transmitter 
to  scattering  volume  element 

»  atmospheric  transmittance  from  scattering  volume 
element  to  SR 


F(6^)  (JTHETA) 
Rt  (BS) 

(THETA) 


atmospheric  scattering  distribution  function 
range  from  scattering  volume  to  S3 
angle  of  intercept  of  do  3  and  the  link  beam. 


This  expression  Is  then  numerically  integrated  across  the  SR  7CV  in  the  program.  It 
can  be  seen  that  the  atmospheric  parameters  are  critical  in  the  calculation  of  atmos¬ 
pheric  scatter. 

(TD  The  transmittance  from  point  to  point  in  the  atmosphere  is  given  by 


T  »  exp 


a 

a  (h)  <2z 
. 


where  the  integration  is  carried  cut  along  the  propagation  path,  and 


3  *  length  of  propagation  path 
ar(h)*  altitude-dependent  exdncsoa  coefficient 
h(z)  »  altitude  of  propagation  point  at  a  distance  z  along  the  path 


The  routine  used  in  the  computer  program  uses  a  stepwise  integration  to  provide  ail- 
altitude  capability  given  a  function  ah). 
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(to  The  absorption  and  scattering  of  the  amn sphere  is  die  to  the  molecular  and 
aerosol  constituents  of  the  atmosphere.  The  scattering  properties  (coefficients)  are 
dependent  on  particle  size  and  -wavelength,  but  vary  in  a  relatively  well 'behaved  man¬ 
ner  with  wavelength  for  a  given  set  of  atmospheric  conditions.  The  molecular  absorp¬ 
tion  however,  has  a  very  fine  s  croc  sure,  due  to  its  dependence  on  the  quantum  structure 
of  the  atoms  and  molecules  in  the  atmosphere.  The  many  lines  winch  make  up  the  ab¬ 
sorption  spectrum  vary  in  intensity  (resonance  strength)  and  width,  and  are  not  pre¬ 
dictable  using  simple  theory.  Instead,  a  line  compilation  computer  program  (such  as 
H1TRAN)  must  be  used,  particularly  in  the  ease  of  laser  propagation,  where  the  Une- 
width  is  so  narrow  that  a  detailed  knowledge  of  the  atmospheric  structure  in  the  neigh¬ 
borhood  of  the  laser  line  is  required.  For  this  reason  a  set  of  tables  [3-31  Is  used  in 
the  computer  model,  and  for  each  wavelength  option  a  subset  of  five  atmospheric  types 
are  available,  each  with  the  choice  of  clear  or  hazy  condition.  The  tables  from  the 
reference  also  contain  the  altitude  dependence  of  the  parameters,  giving  the  model  an 
all- altitude  mnri<»iing  capability.  Table  3-2  is  a  sample  of  such  a  table.  The  computer 
program  has  five  built-in  choices  of  these  tables  at  wavelengths  of  .  5145,  .  S326,  .  360, 

1. 06,  and  10. 591  ;im.  The  user  also  has  the  option  of  inputting  a  table  for  an  optional 
wavelength  and  using  it  in  the  program.  If  such  a  table  i3  not  available,  the  user  may 
select  to  use  a  fixed-coefficient  system  where  the  coefficients  are  supplied  by  the  user. 
This  method  has  the  advantage  that  experimental  results  may  be  compared  with  the 
program  when  the  coefficients  were  determined  experimentally;  but  on  the  other  hand 
the  results  are  only  good  for  near  co-altitade  geometries  where  variation  of  atmospheric 
'  properties  over  the  altitude  differences  in  the  scenario  are  negligible,  since  only  one 
coefficient  can  be  input. 

(U)  The  normalized  scattering  function  is  depends!  on  many  atmospheric  parameters, 
including  relative  humidity  and  particle  size  distribution.  The  computation  of  such  a 
function  for  a  specific  set  of  conditions  requires  a  Mie  scattering  calculation.  After 
examining  the  experimental  and  calculated  carves  available,  two  curvefit  approxima¬ 
tions  were  chosen  for  the  program.  The  first  of  these,  given  in  Figure  3-3,  Is  shown 
superposed  on  measurements  reported  by  Neila  [3-4]  for  a  wavelength  of  1. 06  jxm.  The 
second,  si  10. 6  jun,  appears  in  Figure  3-9,  where  the  data  is  taken  from  the  same 
source.  In  the  program  the  first  carve  is  used  to  approximate  F(0)  for  wavelengths 
smaller  2  um  and  the  10.  5  urn  curvefit  Is  used  for  wavelengths  greater  than  2  urn. 
The  normalization  of  the  carves  allows  their  use  at  any  altitude  with  errors  only  in  the 
particle  size  distribution. 
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F-gure  3-8.  Normalized  Atmospheric  Scattering  Distribution  Function  Used  in  LACM  2.0  tor 
Wavelengths  greater  cL-in  2  pus.  The  fitted  curve  is  compared  co  composite  measurement  data 
at  10.6  M*n  [3-4] . 
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F:.  -re  3-12.  The  keaaonve  Index  Structure  Function,  Comparing  the  Computer  Fit  to  Theoretical 
toodeis  [3-d  ] . 
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Section  3  —  The  Computer  Model 

Subsection  C  -  User's  Guide  to  LA  CM  2.  0  Computer  Program. 

1.  COMPUTES  PROGRAM  OVERVIEW 

(U)  LACM  2-  0.  written  in  ANSI  Fortran,  is  designed  to  be  user  oriented,  in  that  it  is  inter¬ 
active  and  die  user  is  guided  through  his  calculation  by  die  program,  freeing  '-g'-m  from  die 
need  to  laboriously  prepare  input  data.  In  addition,  he  can  monitor  results  and  investigate  in 
more  detail  those  results  that  may  interest  him.  Thus,  a  user  may  sit  down  at  the  terminal 
and  in  one  session  Investigate  a  link,  first  determining  the  critical  parameters  and  then  in¬ 
vestigating  them  in  detail. 

(U)  A  simplified  rmmdcaal  flow  diagram  is  presented  in  Figure  3-13  and  illustrates 
the  general  flow  of  die  program.  Appendix  3  contains  flow  diagrams  for  each  module. 
The  main  routine  initially  calls  the  intemctive  input  routine  which  prompts  the  user  fcr 
data  on  the  link  and  the  type  of  output  he  requires.  Tie  interactive  routine,  TSEA2E, 
is  programmed  so  that  only  the  parameters  required  to  do  what  die  user  wants  are 
asked  for.  For  example,  if  the  user  requires  a  power  computation,  the  routine  will  -■ 
not  prompt  him  for  the  background  type,  as  it  is  not  used.  Additionally,  default  values 
are  provided  and  displayed  to  the  user  so  he  can  see  what  sort  of  input  i3  expected  of 
him.  (After  executing  a  ran  the  use;  has  die  option  of  changing  a  few  inputs  without 
having  to  go  through  die  whole  process,  unless  he  makes  a  change  that  requires  more 
inputs  than  he  previously  had  specified.)  Cnee  die  link  parameters  and  run  type  flags 
have  been  set,  the  computational  routines  are  called  and  execute  the  run.  The  user 
has  the  option  to  receive  an  input  summary  aad  to  write  the  output  on  any  file  he  chooses, 
or  skip  the  output  if  all  he  desires  is  a  plot. 

(U)  As  can  be  seen  in  the  figure,  two  different  principal  computational  routines  axe-' 
available,  one  for  a  space-to-ground  scenario  called  STQG  and  die  other  for  narrow- 
beam  analysis,  called  SETUP  because  it  sets  up  the  mode  geometries,  which  will  be- 
described  hi  mors  deoil  later  on.  hi  the  former  case,  the  user  will  have  determined  if 
he  desires  to  compute  (he  radius  of  the  link  beam  at  the  ground  or  desires  to  input  it; 
if  it  Is  to  be  composed,  subroutine  STREAM  is  called  to  do  the  computation.  The  power 
at  the  off-axis  receiver  is  computed,  and  printed,  hi  the  case  of  a  narrow-beam  link. 
SETUP  calls  computational  routines  as  needed  to  generate  a  SNR  or  power  profile  of  the 
link.  Control  then  returns  to  the  main  program  where  me  graphics  routines  are  called, 
if  available.  Graphics  are  highly  installation  dependent,  and  are  noc  required  to  run  the 
program.  Taking  into  account  the  installation's  equipment  a  user  can  write  a  graphics 
routine  best  suited  to  his  ose. 

(U)  After  a  run  is  complete,  die  user  can  run  a  sensitivity  analysis  in  which  he  may 
vary  the  atmospheric,  port  scatter,  and  reflectance  parameters  to  determine  how  un¬ 
certainties  in  them  may  affect  ais  conclusions  about  a  link.  The  user  can  then  begin 
a  new  run,  or  he  may  stop  execution  if  he  is  done. 
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Figure  3-13.  Simpiined  Flow  Diagram  of  LaGM  2.0 
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Section  3  —  The  Computer  Model' 

Subsection  C  —  User's  Guide  a  LACM  2.  0  Computer  Program 

2.  INPUT  DESCRIPTION 

(U)  In  dais  topic  tie  Inputs  to  LA  CM  2.  0  are  defined  and  die  procedure  for  u<rin^  tie  interac¬ 
tive  routine  is  described. 

(U)  The  ECKSTSOM  Computer  Model  is  interactive  and  has  a  very  flexible  input 
routine  that  is  designed  to  allow  an  analyst  to  use  the  computer  without  extensive  pro* 
gramaing  experience.  Although  the  model  is  designed  to  be  interactive,  alight  mcd--'_ 
tficadons  will  enable  running  of  the  program  in  a  batch  (background)  processing  en-  - 
Tirorment,  as  described  in  Appendix  3. 

(U)  Figure  3-14  Illustrates  the  input  procedure.  The  user  calls  the  program,  and 
the  program  begins  executing.  The  first  parameter  he  is  asked  for  is  the  Hnic  wave¬ 
length.  Five  choices  are  pre-set,  and  a  such  choice  allows  any  other  wavelength  as 
a  selection.  (The  sample  input  in  the  figure  is  somewhat  system  dependent.  The 
question  mark  under  die  prompt  statement  is  system  generated,  and  die  IBM  TSO  sys¬ 
tem  allows  defaulting  to  the  present  value  in  core  by  simply  putting  in  a  comma. )  The 
selection  of  4  then  sets  the  wavelength  to  1. 06  um.  (However,  all  inpuss  except  optical 
bandwidth  are  in  MKS  units).  The  standard  prompt  message  has  an  input  code  followed 
by  the  variable  name,  description,  and  default  value.  A  set  of  partial  prompt  messages 
can  be  used  Instead  by  typing  in  an  end-of-file  marker  (/-  on  CBM)  as  an  input.  Details 
of  this  are  described  in  Appendix  3. 

(U)  The  user  Is  prompted  for  the  atmospheric  model  he  wants.  He  has  two  options: 
to  enter  Ms  own  absorption  and  scattering  coefficients  (USSR),  or  to  use  the  AFGL  iata 
which  provides  an  ail-alfitode  capability.  If  AFGL  data  is  selected  and  the  user  has 
selected  a  non-default  wavelength  (1.  e. ,  CTHBR)  a  complete  set  of  data  for  that  wave¬ 
length  wtH  be  expected  by  file  program,  and  the  user  will  be  asked  which  unit  the  data 
will  be  read  off  of.  This  data  is  to  be  formatted  in  a  6X,  7E9. 2  format  with  two  cards 
per  row  of  data  from  the  table  of  AFGL  data,  shown  in  Table  3-2.  In  the  case  that  a 
defaulted  wavelength  is  selected,  the  data  is  in  core  and  the  program  proceeds  to  the 
next  prompt  messages,  requesting  the  atmospheric  model  type  and  visibility.  Ref¬ 
erence  3-3  contains  a  detailed  description  of  these  models  and  should  be  readily  avail¬ 
able  to  file  user,  so  they  will  not  be  described  further. 

(U)  The  next  inputs  are  more  straightforward;  the  transmitter  optics  diameter  ana 
beamwidih  are  input.  If  the  beamwidth  is  less  than  the  diffraction  limit,  a  message " 
with  the  diffraction  limited  beamwidth  is  printed  and  fixe  beamwidih  is  requested  again, 
which  must  be  greater  than  the  efiffraefion  limited  beamwidth.  The  3SDF  model  (port 
scatter)  is  required,  with  a  default  available;  or,  if  USER  1s  selected,  the  slope,  inter¬ 
cept,  and  'glitches'  of  file  3SDF  are  requested,  as  described  in  the  previous  subsection. 
(U)  The  next  group  of  inputs  specify  the  backstop  characteristics  and  orientation. 

The  osar  can  select  either  a  lamberlan  backstop  or  one  with  a  specular  component. 

The  default  has  a  3°  specular  component,  but  the  user  should  try  to  find  what  model 
best  suits  Ms  backstop.  The  laraberhaa  model  requires  a  reflection  coefficient,  and 
the  specular  model  requires  the  diffuse  reflection  and  the  specular  amplitude  width.  • 
The  next  inputs,  PSZAZ  and  PSEL.  allow  the  backstop  to  be  llted  back  and  forth  or 
up  and  down  relative  to  the  default  position  corral  to  the  link  beam.  The  receiver 
scattering  is  the  next  input  and  is  specified  in  the  same  manner  as  file  backstop,  having 
a  specular  and  diffuse  component. 
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(XT)  The  power  transmitted,  ?T,  is  required  in  watts,  followed  by  the  link  range  and 
die  altitudes  ox  the  link  transmitter  and  link  receiver.  Note  that  the  SB.  altitude  is 
specified  by  the  parameters  X,  HPX,  and  GAMCXT,  as  described  in  the  geometry 
description  and  illustrated  is  Figure  3-1. 

(U)  Two  flag*  are  set  next,  MCOMP,  and  MI?.  The  program  can  be  instructed  to 
compute  die  power,  or  agral-co-ooise  ratio,  and  it  can  isolate  the  sources  of  scattered 
radiation  to  die  acnosphere,  transmitter,  or  receiver/backstop  combi  nation,  or  it  can 
provide  die  total  from  all  sources.  As  described  later,  the  output  tables  will  break 
these  components  our  so  the  user  can  see  the  significance  of  each. 

<x/)  The  n<»wg  parameters  describe  the  t  receiver,  its  detection  charac¬ 
teristics  ,  select  the  background  type.  The  user  is  allowed  bo  default  the  charac¬ 

teristics  but  this  is  act  recommended  in  general.  Two  detection  types  are  allowed, 
direct  detection  and  heterodyne  detection.  The  SNR  expressions  for  the  different  de¬ 
tection  types  require  different  parameters,  as  shown  in  the  previous  subsection.  The 
parameters  common  to  both  are  die  electronic  bandwidth  of  the  SR  (BW),  the  quantum 
efficiency  ETA,  and  the  modulation  depth  201.  In  the  case  of  direct  detection  a  noise 
factor  F  is  specified,  along  with  the  system  NEP ,  and  the  optical  bandwidth  3W0PT 
of  die  predetection  background  filter.  If  heterodyne  detection  is  selected  the  mix  eg 
efficiency  EM  is  required.  Note  tixat  in  the  sample  input  session  in  Figure  3-14  a  wave¬ 
length  of  less  tfrnn  2  um  was  selected,  so  that  the  choice  of  direct  detection  was  assumed 
automatically. 

40)  The  area  of  the  *  receiver,  ASR,  is  required  for  all  cases,  as  is  the 

?OV  in  the  intercept  plane,  PHI.  For  cases  where  the  background  power  is  computed 
a  second  iwpnt  PHLAZ  is  required.  This  is  the  FOV  is  the  plane  orthogonal  to  the 
intercept  plane,  intersecting  the  intercept  plane  along  the  SR  optical  Mis. 

(XT)  The  last  few  Inputs  are  the  hood  lengths  of  the  transmitter  and  link  receiver. 

If  the  lengths  are  greater  than  zero  their  diameters  are  also  requested  by  the  program, 
as  illustrated  nor  the  receiver  hood.  The  final  input  we  describe  here  is  the  intercept 
plane  orientation  angle,  GAMZNT.  Figure  3—1  shows  how  this  angle  defines  the  inter¬ 
cept  half-plane. 

(XJ)  The  last  few  inputs  select  the  modes  and  their  related  parameters  and  will  be 
discussed  in  detail  in  the  next  tonic. 

(XT)  Figure  3-15  is  a  listing  of  the  input  summary  that  the  user  can  request.  The 
input  summary  contains  the  input  variables  and  presents  them  in  an  orderly  fashion. 

One  parameter  appears  which  merits  special  attention,  and  that  is  the  angle  of  the 
intercept  half-plane  containing  the  specularly  reflected  component  of  the  backstop, 
described  in  deiril  in  Subsection  B.  *  The  rest  of  the  summary  is  self  explanatory. 

(XT)  The  space-to-ground  input  is  invoked  by  specifying  a  transmitter  altitude  of  more 
than  ioo,  ooo  meters.  The  SR  distance  to  the  beam  is  required,  and  the  user  either 
input  die  beam  radius  ond  peak  intensity  at  ground  level,  or  have  those  parameters 
calculated.  If  they  are  to  be  calculated  several  other  parameters  are  required.  The 
platform  jitter,  specified  in  radians,  will  broaden  the  beam  shape.  Platform  jitter 
quantifies  the  stability  of  the  transmitter  platform,  as  described  in  Subsection  3. 

(XT)  Table  3-3  summarizes  the  hierarchy  of  the  inputs  and  wifi  be  useful  to  the  user 
during  a  session  in  making  changes  between  runs. 

(XT)  Table  3-2  in  Appendix  3  lists  the  input  variables,  their  type,  and  any  limitations 
or  comments  that  are  act  obvious. 
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INPUT 

CODE 


VARIABLE 


DESCRIPTION 


DEFAULT 


call  ec)c(  main)— -CALL  PROGRAM 

larEHCSHTIalUTY  ANALYSIS  PROGRAM  —  ENTER  I  TO  START 


I 


I  LAM  —  WAVELENGTH  INDEX  a 

( I -.51 45  2-.632S  3-.B5  4-1.06  5-10.591  6-OTHE3) 


4— —SELECT  1.06  urn 

2S  IA  —  ATMOSPHERICS  (S-UScH  2-AFCL) 

2—-  SELECT?"-  AFGL  DATA 

MAT  —  ATMOSPHERIC  MUwcL 

1  -  TROPICAL 

2  -  mxuLaTITUjE  SUMMER 

3  -  MIDLATITUOE  wINTsH 

4  -  SU5ARCTI  C  SUMMER 
a  -  SUBARCTIC  * INTER 


7 

t 

? 

2 

7 

.1 

/  • 


7 

2 


7 

» 

7 

0 

7 

t 

7 

3 


,  COMMA  TO  USE  DEFAULT  VALUE  OF  2 

MV  IS  —  VISIBILITY  U-CLBAR  2-riAZ.Y) 

jt  —  transmitter  optics  diameter,  m 

PHIT  —  TRANSMITTER  bEAMn  I0I*H,  RADIANS 
31  laSUF  —  bS OF- < 1 -DEFAULT,  2-USER) 

YbSGF  —  bS OF  Y- INTERCEPT  AT  I  UECWSE 
SiiSCF  —  aSGF  SLOPS  (LOC-LUU) 

NO  —  rOmbER  OF  GLI TCF.E5  (0-3) 

4  GH  —  LINK  RECEIVER  OF  1' ICS  OiAMgTSH,  M 


1 

0.1  00 
1 . 0 COE— 04 
I  * 

2.  OOOE-KJ2 
-2.50CS+C0 
0 

0.100 


32  fi&AJL  —  BAOCSrOF  <  I -DEFAULT,  2-UScH,  3-LAMSEHTlAN ) 


7 

•  15 


3UI rr  —  REFLECTION  COEFFICIENT 

(LAMBERTIAN  MO'JEL,  EG.  .1) 


PSIAZ  —  AZ.  ORIENTATION  OF  3ACXS70P  ( DEG) 
0  -  NORMAL  TO  3£Am 


0.0 


Figure  3-14.  liluserancn  at  Interactive  Session  (1  at  3) 
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INPUT 

CODE 


variable 


DESCRIPTION 


DEFAULT 


? 

* 

PSIEL 

£L.  OMIHNTaTI QN  OF  BACKSTOP  (DEC) 

0  -  wOfiMAi.  TO  SEAM 

0.0 

• 

? 

33 

NGA 

— 

RCVR  SCATTER  O -DEFAULT,  2-USER) 

1 

1 

? 

6 

PT 

— 

TRANSMIT  POnER,  nATTS 

1 . OOCE-CO 

• 

? 

a 

ML 

— 

LINK  HANGS,  METERS 

5.0COE-H33 

• 

? 

20 

y 

hi 

— 

altitude  of  transmitter,  meters 

I  .OOOE-H3I 

IC 

tlH 

— 

altitude  of  link  RECEIVER,  m 

1 . OOCE-O 1 

20 

•> 

25 

MCOMP 

— 

COMPUTE  1 —PO« EH  2-S/N  RATIO 

1 

2 

? 

5 

MP 

— 

SOUHCS7  I -SUM,  2-ATM,  3-TR,  4-RC 

I 

1 

? 

13 

IHTYPE 

— 

SR  TYPE  (I -DEFAULT,  2-USEW  INPUT) 

2 

2 

? 

1  4 

XM 

— 

MODULATION  depth 

1  .000 

« 

•» 

16 

£Ta 

— 

QUANTUM  EFFICIENCY  OF  UETSCTUfi 

0.700 

» 

? 

17 

F 

— 

EXCESS  NOISE  FACTOR 

1  . 0  COE*  OQ 

» 

? 

IS 

dnH 

— 

3AW0nIDTH  OF  SR,  nZ 

1 . OOOE-C6 

« 

? 

19 

PN£p 

— 

NOISE  EQUIVALENT  POWER  OF  SR 

1 .0006-12 

* 

? 

29 

SnOPT 

— • 

Srt  OPTICAL  EANOnlDTh,  MICRONS 

5.000E-02 

* 

30 

NFLU 

■ 

1 -SUNNY  2— CLOU DY  3-NIGHTTIME 

1 

figure  3*14.  Illustration  of  interleave  Session  (2  of  3) 
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INPUT 

VARIABLE 

DESCRIPTION 

CODE 

~r 

f 

t 

r 

/ 

dii 

— 

LINK  BANDWIDTH.  HZ 

9 

12 

7 

.03 

ASrt 

— 

AKEA  OF  SW  APEWTUHE,  SQ.  METERS 

1  1 

7 

3.a-3 

PrtI 

3K  FIELD  OF-  VI an. 

WAuiArtS 

-*0 

PNIAZ 

— 

SW  FIELD  OF  VIEW 

(AZIMUTH),  SAD 

S.«-3 

20 

7 

0. 

3  LX 

— 

HOOD  LENGTH  OF  TRANSM I T7SH ,  M 

oLH 

— 

HOOQ  LENGTH  OF  kS 

CEIVEH,  H 

21 

7 

.01 

43 

7 

auLrt 

WECE1VEN  HOOD  jlAMtsTEN .  M 

♦ 

41 

OAAlrtT 

- 

AwCLE  OF  INTERCEPT  PLANE,  DEG 

7 

0  rOW  HOW IL0N7AL  PLANE 

9 

2d 

7 

MOUE 

— 

SELECT  OUTPUT  MOUE  (7  FOW  INFO) 

1 

23 

WPX 

DISTANCE  FWOM  XMTk  To  alSECTOH, 

2* 


—  PEWFgnoICULAH  DIS7  70  BEAM  AXIS.M 


end  ok  infois 

GO  YOU  n  1  Sii  70  UrtArtCiE  ArtYIHIaUV  I -YES  2-NO  ; 
’NO  PROCEED  (ALLOWS  TO  CORRECT  ERRORS) 

JO  YOU  "AN';  Art  Irtf'C'I  Su.AMANY'  O-riO  I -YES 
YES  (SHOWN  IN  NEXT  FIGURE) 


DEFAULT 

! 

i 

t 

I . QOOE+Od 

S.CCCE-02 

1 . 0 COE— 02 

I . OCOE-02  ' 

0.0 

0.0 

0.1  00 

0.0 

A 

2.500E-KU 
i .  ocoe-h:  2 

)— ALL 
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SCENARIO  GEOMETRY 


LINK  HANGS,  M - 5 .  CCCE*rQ2 

HC  ALT,  M - 2.  CCGS-Oi 

BACKGROUND  TYPE  —  SUNNY 

LINK  PARAMETERS 

WAVELENGTH,  M  -  I  .  060E—06 

HC  APERTURE,  A  -  0.10CC0 

HC  tiOGO  LENGTH,  M-  O.O! 

HC  riOOO  OIA.  ,  M  —  0.10 


SR  PARAMETERS 


TH  ALT,  U  -  2.CCOS-H3I 

Sk  ALT  ,  M  -  1  .  0CCE-K5 1 


TH  POrtSH,  n - I.OCOS+CO  i 

Th  APERTURE,  M  —  0.10CC0 

fk  HOOD  LENGTH.  M  '  0.0  j 

TH  HOOD  DIA.,  M  —  0.10 

Th  BEAM  WIDTH, HAD  1  . OCQE— 04 


LINEAR  rOV f  HAD  -  5. C0OE-O3  APERTURE,  SQ.m.  -  0.0500 

rOv  ACROSS  BEAM.  R  5 . OCCE-03  DETECTION  TYPE,  -  DIR 

OPT  a« ,  MICRONS  —  5. COOS— 02  nEP,  w/RT.HZ.  -  I.OOOS-12 

MOD.  DEPTH , -  l.CO  EXCESS  NO  I- Sc  -  1  .  OCCE-CQ  j 

aANDnUTn,  rsL  — —  1  .  OCQS^Od  OUANPDM  Err.  — —  0.70  | 

I NTEkCEPT  mOCc  PARAMETERS  j 

;aOu£  TYPE  -  I  OUTPUT  TYP= - S/N,  Db 

HPX .  UsIsrfS -  2.500E+03  X,  METERS - l.0COE-K)3 

Sh  PLANE,  DEG  -  0.0  SPECULAR  GAMInT  -  0.0 

ATMOSPHERIC  PARAMETERS 

DATa  source  -  afol 

m i OLA f! TU DE  SUMMER  VISIBILITY  IS  HAZY 

COEFFICIENTS  rOH  0  To  1000  METERS  ALTITUDE 
SCAT  COE.-  !/S»  -  2.0C3E-04  AbS  COer,  I/M  -  5.320E-05  ! 


SCaTa  EH  I  No  DAlA  .-Ok  TRANSM  I TTSH ,  HbCEIVSK,  AND  BACKSTOP 

dSUP  MOjEL  TYPE  —  AVERAGE  dSDF  SLOPS  DS/Db 

NONLIMEaRITIES  -  0  3SDF  INTERCEPT 

BACKSTOP  TYPE  -  LAMbtkT I AN  HEF-ECT I  ON  COb?  - 

aACKSTOP  AZ,  Jc-J  0.0  aACKSTOP  EL,  DEG 

OA  TYPE  -  UNKNOWN  DIFFUSE  LEVEL  - 

SPECULAR  maX  —  C.O  SPECULAR  « IDTn ,  D 


-2.500  1 

200.000 

C. 1  SCO 
0.0 

0.0  | 
0.3CC  i 


Figure  3-15.  Sample  Input  Summary 
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TABLE  3-3.  INPUT  HIERARCHY  OF  TSHAEE  ROUTINE.  EACH  INPUT 
CODE  HAS  ONE  OR  MORE  VARIABLES  IT  ACCESSES. 


INPUT  HIERARCHY 


Wavelength 

Atmospherics 

Optional 


Input  Variables 


•  Input  absorption  It  scattering  coefficients 
-  Read  in  sew  AFGL  tables 


Transmitter  Optics 
Transmitter  Beam  width. 

BSDF  Model 

Optional  -  BSDF  Slope 

—  BSDF  Intercept 

-  mttehaa 

Link  Receiver  Optics 
Backstop  Type 

-  Diffuse  Reflectance 

-  Specular  Width  &  Maximum 

Backstop  Orientation 

—  Azimuth 
—  Elevation 

link  Transmit  Power 

Link  Range 

Transmitter  Altitude 

Link  Receiver  Altitude 

Space-to— Ground  Flag 
—2  Space  to -Ground — 

-  Off-Axis  Distance 

-  SR  Elevation  Angle 

•  Ground-Level  Altitude 

-  Beam  Computation  Flag 

-  Jitter 

-  Turbulence  Flag 

-  Beam  Radius 

-  intensity  on  Axis 
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TABLE  3-3.  DfPUT  HIERARCHY  OF  TSHABZ  ROUTINE.  EACH  INPUT 
.  CODE  HAS  ONE  OR  MORE  VARIABLES  IT  ACCESSES.  (Conttanwri) 


Input  Variables 


Computation  Flag  (Power  or  SNR) 

Source  of  Scatter  Flag 
—For  SNR  Cases— 

—  Modulation  Depth 

-  Detectloa  Type  (Direct  or  Heterodyne) 

-  Heterodyne  Miring  Efficiency 
—  Quantam  Efficiency 

—  Noise  Figure  (Direct  Detection) 

— ' 1  SR  Bandwidth 

-  SR 

-  SR 

L  Background  Type  (Direct  Detection) 

-  Link  Bandwidth 

SR  Aperture 

SR  FOV  (In  Intercept  Plane) 

SR  AZ  FOV  (Cut  of  Plane) 

Transmitter  Hood  Length 
Transmitter  Hood  Diameter 
Receiver  Hood  Length 
Receiver  Hood  Diameter 
SR  Altitude  (Space-to-Orouad  Case) 
into? Half- Plane  Orientation 
Mode  Type 

-  EPS  (Modes  1-3) 

-  X  (Modes  1-3) 

-  Contour 
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Section  3  -  The  Computer  Model 

Subsection.  C  -  User's  Guide  to  LACM  2.  0  Computer  Program 
3.  DESCRIPTION  OF  MODES  AND  OUTPUT 

(XT)  Tie  intercept  modes  are  designed  to  free  tie  program  user  from  setting  up  a  significant 
amount  of  tie  geometry  needed  to  do  a  calculation.  Each  mode  goes  tirougi  a  sequence,  mov¬ 
ing  or  orienting  tie  S3  like  a  probe  to  produce  a  power  or  SNR  profile  of  tie  link. 


(U)  Tie  calculation  of  power  at  an  off-axis  point  requires  five  coordinates,  tires  to 
define  tie  S3  position  in  three-dimensional  space,  and  two  to  define  its  orientation.  -• 

In  tie  geometry  established  and  discussed  previously,  tie  S3  and  its  optical  axis  art£- 
confined  to  tie  intercept  half-plane  and  thus  only  three  coordinates  remain  to  be  spec¬ 
ified  once  tie  intercept  half  plane  has  been  specified.  Tie  position  of  tie  S3  in  tie  ~ 
intercept  half-plane  can  be  specified  by  its  off-axis  distance  X  and  its  dowurange  dis¬ 
tance  RPX.  Note  that  RPX  may  be  negative  (in  tie  transmitter's  rear  hemisphere)  or 
positive,  while  X  must  always  be  positive.  Tie  first  three  modes  go  tirougi  a  set  of 
standard,  points,  while  Modes  4 
axis  in  tie  intercept  half-plane. 

(TT)  In  Mode  1  tie  SB  position 
axis  of  tie  S3  is  slewed  from  tie  transmitter  to  tie  receiver,  incrementing  tie  ori¬ 
entation  angle  9  by  one  degree  near  to  tie  transmitter  and  receiver,  and  by  no  more  * 
than  ten  degrees  in  between,  to  yield  a  total  of  about  37  points.  As  illustrated  in  Fig¬ 
ure  3-16,  Mode  1  is  ideal  for  evaluation  of  tie  point  (3FX.X)  as  a  potential  S3  location. 
(U)  Figure  3-17  is  a  sample  output  table  for  a  typical  Mode  1  case.  Tie  signal-to-’ 
noise  ratio  in  dB  is  listed,  along  with  tie  power  contributed  by  each  source  considered. 
As  would  be  expected,  tie  transmitter  is  seen  first,  and  when  9  is  incremented  it  Is 
no  longer  in  the  S3  field  of  view.  Wien  die  receiver  falls  into  die  field  of  view,  tie 
mode  is  complete.  In  Mode  1  tie  edge  of  tie  FOV  is  on  tie  transmitter  to  maximize  file 
atmospheric  scatter  visible,  and  on  tie  opposite  edge  for  tie  receiver/backstpp.  When 
the  data  is  plotted  (Figure  3-18)  the  transmitter  and  receiver  contribution  show  up 
dearly.  R  may  seem  odd  that  tie  receiver  contribution  in  fids  case  is  almost  equal 
to  tie  transmitter  contribution;  however,  tie  transmitter  scatter  is  very  strong  at 
small  angles  while  the  backstop  is  a  Lambertian  reflector,  and  at  22  degrees  off  Bor¬ 
stal  the  transmitter  scatter  has  dropped  down  significantly,  while  the  backstop  has  only 
dropped  by  7%  from  its  maximum  value. 

(U)  In  Mode  2  tie  SB  views  a  fixed  point  along  tie  beam,  and  is  incremented  to  ef¬ 
fectively  move  tie  S3  about  tie  point  with  tie  center  of  tie  FOV  oriented  toward  th£ 
point.  Note  that  atmospheric  transmission  losses  are  (for  a  narrow  FOV)  constant  -v 
for  Mode  2,  while  in  tie  Mode  -1  geometry  file  path  length  from  transmitter  to  scat¬ 
tering  volume  to  SB  increases  with  increasing  9  .  Another  geometric  factor  is  that 
tie  scattering  volume,  defined  by  tie  intersection  of  file  link  axis  and  S3  FOV,  is 
changing  with  9  ,  and  is  minimized  at  90  degrees.  Tie  output  of  Mode  2  will  show 
tie  scattering  distribution  function  Ff 9)  very  strongly,  multiplied  by  tie  geometric 
scaling  of  tie  scattering  volume.  A  sample  output  table  has  not  been  included,  as  it 
is  identical  in  form  to  the  table  for  Mode  1.  Tie  data  is  platted  in  Figure  3-18  for 
comparison  with  Modes  1  and  3.  In  this  sample  case  tie  fixed  point  is  located  halfway 
down  tie  link  axis. 

(U)  Mode  2  has  great  utility  in  looking  at  tie  port  or  receiver/backstop  scatter.  By 
positioning  file  fixed  point  ax  tie  transmitter  (BPX=0.>  or  at  fit'  receiver  (RPX  *  31, 
file  link  range)  tie  angular  scattering  profile  can  be  generated.  Since  tie  S3  orientation 
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goes  from  1  to  179  degrees,  the  transmitter  profile  will  have  no  transmitter  contribu¬ 
tion  for  angles  greater  90  degrees,  and  the  receiver  will  not  have  any  from  1  to 
90  degrees,  unless  the  backstop  is  oriented. away  from  the  perpendicular  to  face  the 
inmfi'-gfff  half-plane.  It  should  also  be  noted  that  in  Mode  2  die  X  and  inputs  define 
the  distance  from  the  scattering  volume  to  SB  and  transmitter  to  scattering  volume 
respectively  rather  than  the  SB  location. 

(U)  MnWg  3  is  rtmiigy  to  Mode  2  in  tvijg  a  fixed  point  in  the  link  h»n-m  is  observed. 
However,  the  SB  is  moved  along  a  parallel  to  the  link  beam  in  the  Intercept  half-plane  and 
thus  at  approaching  0  or  ISO  degrees  the  range  from  the  SB  to  the  fixed  point 

becomes  large.  This  causes  the  Intensity  to  drop  down  due  to  attenuation,  as  Illus¬ 
trated  by  the  Mode  3  curve  In  Figure  3-18.  One  interesting  feature  of  this  particular 
sample  tarry*  is  it  reaches  a  maximum  at  about  10  degrees.  It  therefore  predicts 
that  mintmiTirrg’  the  intercept  angle  does  not  necessarily  maximize  the  available  power 
If  one  is  confined  to  a  certain  o if- axis  distance.  This  results  because  of  tradeoffs  be¬ 
tween  scattering  distribution  F(3),  transmission,  and  transmitter  scatter  characteristics. 
fU)  Modes  4  and  3  generate  contours  about  the  link  using  an  Iterative  method.  In 
Mode  4,  the  SR  is  assumed  to  always  look  at  the  transmitter  and  that  portion  of  the 
beam  immediately  in  front  of  it,  within  the  SS  FOV.  As  shown  in  Figure  3-19,  begin¬ 
ning  at  an  angle  9  of  one  degree  the  SB  position  is  adjusted  until  a  desired  contour  level 
is  found  on  the  off-axis  ray.  The  SB  coordinates  at  that  point  are  then  stored,  9  is 
incremented.  the  next  point  is  searched  for.  The  Increment  used  is  smaller  for 
the  small  angles,  and  gets  larger  with  9  until  it  reaches  a  maximum  of  2. 3°,  so  that 
the  paints  are  spaced  more  evenly  In  X  and  RPX. 

(U)  Mode  3  uses  the  same  procedure  as  Mode  4  (Figure  3-19>  but  the  contours  repre¬ 
sent  the  total  collectible  power  at  the  SB  from  die  entire  link,  if  a  FOV  encompassing 
the  transmitter,  receiver,  and  beam  were  used.  It  is  recommended  Mode  3  be  used 
for  power  contours  rather  than  SNR  because  the  SB  FOV  is  used  only  as  a  orobe,  and 
background  noise  will  not  be  computed  for  the  entire  composite  FOV ,  but  only  for 
the  probe  FOV.  (The  program  will  not  SNR  for  Mode  5  but  die  user  can  remove 

die  restriction  in  the  input  routine). 

(TJ)  Figure  3-21  compares  plots  for  Modes  4  and  5  at  the  same  contour  level.  The 
Mode  3  ^lots  were  run  with  the  backstop  and  receiver  at  5  and  10  km.  (The  ragged 
effect  is  due  to  the  convergence  criteria.  Indicating  here  that  the  power  is  changing 
slowly  with  distance  because  the  2%  convergence  criterion  is  satisfied  by  many  points 
just  off  the  actual  curvet .  Note  the  receiver  reflections  at  3  and  10  km  for  the  re¬ 
spective  cases.  Note  also  that  the  scales  are  not  identical,  t-e. ,  die  average  (X) 
scale  goes  out  to  300  meters,  but  the  downrange  (BPX)  scale  goes  out  to  12  km.  The 
first  point  to  the  right  is  at  one  degree  off  the  link  axis  at  tbs  transmitter,  since  the 
models  are  United  to  one  degree  off  the  axis. 
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Flftmr  3- 16.  Geometry  for  Mooes  1-3,  as  Desetoed  in  ;he  Text.  Note  out 
link  transmitter  and  recarer/  backstop  are  seated  as  points  ;i.e~,  -ngnecnng  is 
neglected). 
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Figure  M7.  Sample  Viode-1  Output  Table 
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Figure  3-19.  Geometry  for  Mooes  4  and  S 
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Figure  3-20.  Sample  Mode-5  Output  Table 
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Figure  3-21.  Contour  Plots  for  Made  4  and  5.  Note  that  scales  of  axes  are  aiSereat,  distorting  the 
contour  shape. 
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Section  3  -  The  Computer  Model 

Subsection  C  -  User's  Guide  to  LA  CM  2. 0  Computer  Program 
4.  GRAPHICS  USAGE 

(U)  Computer  get '.erased  graphics  are  highly  device  dependent,  so  die  basic  XACM  2.  0  Com¬ 
puter  model  allows  die  user  to  supply  his  own.  This  topic  describes  some  options  ***  may 
be  available  to  die  user  even  when  he  has  so  piecing  devices. 


(IT)  As  can  be  seen  by  examining  the  previous  topics  and  the  computer  runs  presented 
in  Section  4,  graphics  are  very  useful  in  presenting  a  large  amount  of  data  in  a  mean¬ 
ingful  manner.  In  particular,  the  contour  plots  should  prove  much  more  u semi  in 
practice  than  the  raw  data  points.  For  this  reason  the  main  routine  subroutine 
GRAFTS  after  it  finishes  computing  a  set  of  points  generated  for  the  chosen  mode.  The 
HUGHES  IBM  ISO  (time  sharing  option)  on  which  this  program  was  developed  did  not 
have  on-line  (at  die  terminal)  graphics,  so  the  pioc  die  was  generated,  stored  on  disc, 
and  later  plotted. 

(TJ)  Several  options  are  possible  in  die  selection  of  a  graphics  procedure,  and  the 
most  general  in  order  of  increasing  remote-terminal  complexity  are: 

•  printer  plot/store  data 

•  printer  plot/store  plot  dies 

•  on-screen  graphics/hard  copy 

The  drst  two  options  are  possibilities  for  terminals  that  do  not  provide  graphics 
capability,  such  as  a  simple  teletype,  while  the  third  option  would  require  a  much  • - 
mors  advanced  terminal. 

(U)  The  printer  plot  is  a  useful  aid  to  the  analyst  because  it  provides  crude  on-ths- 
spot  graphics  capability.  The  poor  resolution  limits  its  utility,  as  shown  by  the  ex¬ 
ample  in  Figure  3-22,  since  details  are  easy  to  overlook  or  may  act  appear.  However, 
it  is  quick  and,  in  the  case  where  the  terminal  printing  speed  is  not  too  slow,  is  of  use 
when  other  graphics  are  not  readily  available.  The  drst  option  is  to  use  a  printer  plot, 
writs  the  output  on  a  file ,  and  either  plot  by  hand  or  use  another  plotting  program. 

(U)  The  second  option  (used  at  Hughes  in  developing  the  program)  is  to  generate  a 
printer  plot  (if  desired)  and  interactively  create  the  plot  die  on  disc.  The  Hughes 
system  allows  the  user  to  create  a  plot  frame  and  plot  one  or  more  curves.  The  ad¬ 
vantages  to  this  are  that  he  can  select  "nice''  bounds  for  his  plots,  input  titles,  and 
preview  the  plots  via  the  printer  plot  to  select  the  curves  he  wants  plotted.  After  the 
program  is  executed,  the  plots  are  touted  to  an  on-line  plotter  at  an  output  center. 
Samples  of  these  plots  appear  In  this  report.  As  as  example.  Figure  3-22  is  the 
printer  plot  generated  before  the  Mode-i  carve  of  Figure  3-13  was  plotted  out. 

(U)  The  on-screen  graphics  option  is  of  coarse  the  most  attractive  to  an  analyst  or 
programmer,  but  such  terminals  are  still  costly  and  sot  readily  available  a  many 
users. 

(U)  Due  to  the  widely  varying  types  and  capabilities  of  systems  in  use  in  scientific 
computing,  Hughes  has  chosen  to  write  a  routine  to  suit  its  own  system  and  let  the 
LA  CM  2.  0  user  write  his  own.  However,  the  user  should  be  reminded  that  graphics 
are  not  essential  to  the  operation  of  the  program  and  the  call  ts  GRAFTS  can  be 
deleted  while  die  program  is  being  used,  until  a  suitable  graphics  package  can  be 
obtained  or  written  by  the  user. 
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Figure  3-22.  Printer  Plot  Output  Bern  Hughes  LACM  2.0  Graphics 
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Section  3  —  Tbs  Computer  Model 

Subsection  C  -  User's  Guide  a  LA  CM  2,  0  Computer  Program ' 

3.  PROGRAM  LIMITATIONS 

(TT)  The  LA  CM  2. 0  program  uses  methods,  data,  and  assumptions  that  Impose  limitations  on 
its  use  or  the  validity  of  its  output.  Improper  use  of  the  program  will  be  less  likely  if  the 
limitations  are  understood  by  the  user. 


(TT)  Due  to  the  complexity  of  LA  CM  2.  0  it  is  impossible  to  foresee  every  situation 
that  a  user  will  wart  to  analyze,  so  the  limitations  will  be  stated  in  the  most  general 
dorm  possible.  Most  of  the  Limitations  result  directly  from  the  models  used  by  the  : 
program.  It  is  assumed  that  a  ’user/ analyst  wiH  have  a  good  working  understanding 
of  the  models  as  described  in  this  report,  so  that  he  can  properly  input  data  and  cor¬ 
rectly  interpret  the  result.  However,  the  program  structure  and  operation  is  simple- 
enough  to  be  ran  by  someone  with  a  cursory  knowledge  of  the  models  to  check  the 
program  to  see  that  it  executes  properly  on  a  given  system. 

(U)  The  previous  limitations  of  the  LACM  1.  0  iatercepdbility  program  are  largely, 
solved  in  the  present  program,  as  illustrated  in  Table  3-3.  The  current  limitations 
are  of  a  more  specific  nature,  as  the  basic  model  has  proven  to  perform,  adequately 
under  pathological  testing.  (Pathological  testing  involves  running  the  program  with 
extremes  In  data,  for  example,  using  a  link  range  of  one  meter. )  Table  3-2  Ap¬ 
pendix  3  contains  comments  about  the  input  variables,  but  die  restrictions  are  of  a 
’'common  sense"  type,  such  as  maJ dn;  the  transmitter  hood  aiametter  at  least  as  large 
as  the  optics  it  hoods.  The  limitations  described  here  summarize  the  limitations  of 
the  models,  and  are  presented  in  Table  3-1.  It  should  be  noted  that  many  of  these 
limitations  could  be  overcome  to  a  significant  extent  by  more  extensive  modeling,  as. 
suggested  in  the  summary  to  this  section. 


TABLE  3-3.  (U)  LACM  1.  0  gfTS RCEPTTBIUTT  RESTRICTIONS  (U) 
Previous  Limitation  i _ Present  Improvement _ 


•  Flat  Earth  Model 

•  Low  Altitude  Atmosphere  Models  ! 

•  First  Order  Beamscatter  Function  i 

•  First  Order  Geometry 

•  No  Error  limits 

i 

i 

•  Requirement  for  Weather  Data  Set  ! 

•  Untested  Model 

•  No  Provision  for  Intercept  S/N 


Curved  earth  included 

More  detailed  models  for  all  altitudes 

Expanded,  more  detailed  function  based  an 
experiment 

Exact  analytical  fotss 

Determined  major  sources  of  uncertainty; 
provided  means  of  sensitivity  analysis 

Defaulted  sets  provided 

Point  comparison  with  experiment 

Added  computation  to  routines 
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TABLE  3—4.  (O  SUMMABT  LIMITATIONS  AND  ASSUMPTIONS  OF  THE 

LACM  2.0  MODEL  (U) 


Model 


General 


Transmitter 


TJnk  Receiver /Backstop 


SI  gnal-to- Noise  Model 


Atmospherics 


Background 


Space— co-G round  Case 


j  Limitation/ As  sumptton _ 


•  SB  orientation  3  a  1° 

;  •  SB  does  not  have  access  to  main  beam 

1  r 

•  Operator  manipulation  is  required  for 

scenario  interaction  other  than,  backstop 
'  &  atmospheric  variations 


•  Modeled  as  a  point  source 

•  Sldelobes  are  smoothed 

i 

i  •  Baffle  assumed  100%  absorptive 

•  Atrial  scattering  symmetry  assumed _ 


•  Modeled  as  a  point  source 
I  •  Has  only  one  specular  component 
I  e  Backstop  always  collocated  on  link  axis 


!  •  Heterodyne  expression  yields  IF  value 
•  Does  not  account  for  modulation  type _ 


!  •  Horizontally  homogeneous  (no  local 
variations) 

;  •  F(0)  is  fixed 

«  Single  scattering  only 

•  Anno  spheric  multipath  neglected 

•  Data  tables  required  for  optional  wavelengths 

•  Assumes  fixed  solar  geometry  independent 
of  SB  orientation 

•  Assumes  20  dS  cloudy  day  to  sunny  day 

difference _ _ 

•  Vertical  link  assumed 

•  Gaussian  profile  assumed 
(no  sidelobe  structure) 

•  Power  caicalarion  only 

c  Anoroximare  mediod 
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APPENDIX  B-  LACM  2.0  FLOW  DIAGRAMS,  MODULE  DESCRIPTIONS, 

AND J CL 

The  purpose  of  this  appendix  is  to  provide  a  programmer/analyst  a  starting 
point  in  modifying  LACM  2.0.  It  contains  descriptions  of  the  source  modules,  a 
detailed  listing  of  the  program  inputs,  and  module  flow  diagrams.  The  appendix 
begins  with  a  brief  discussion  of  the  Job  Control  Language  (JCL)  used  at  Hughes. 

JOB  CONTROL  LANGUAGE  (JCL) 

The  JCL  used  at  Hughes  to  run  LACM  2.0  consists  of  TSO  (Time  sharing  Options) 
command  procedures  (CLISTS).  The  CLISTS  used  are  listed  in  Figure  B-l. 

The  first  CLIST,  named  GETSET.  CLISTS  is  used  prior  to  running  the  program. 
Execution  of  GETSET  allocates  the  datasets  to  be  used  in  the  program  to  the  appro¬ 
priate  logical  units.  The  user's  terminal  is  represented  by  dataset  (*)  and  is  allocated 
to  logical  unit  5.  Logical  unit  5  is  used  to  read  the  data,  which  the  user  must  input 
from  his  keyboard  (prompt  messages  are  written  on  unit  6,  but  the  TSO  syBtem  auto¬ 
matically  allocates  the  terminal  to  unit  6  so  it  doesn't  appear  in  GETSET).  If  an  end- 
of-file  marker  (/*  on  IBM  system)  is  encountered  on  unit  5,  the  next  file  on  unit  5  will 
be  read  from  in  subsequent  read  instructions  unless  no  other  file  numbers  have  been 
allocated.  For  example,  the  first  read  will  be  made  on  the  first  file  of  unit  5, 
designated  FT05F001.  The  first  end-of-file  marker  read  in  from  the  terminal  will 
cause  it  to  branch  if  an  ENI>=  (end-of-file  mark)  is  encountered,  and  it  wiU  read  next 
from  file  2  of  unit  5,  FT05F002.  However,  the  terminal  is  also  allocated  to  this  file 
so  the  user  will  not  notice  any  difference;  and  all  he  has  done  is  to  make  the  program 
branch  to  a  preset  portion  of  code  up  to  ten  times;  the  eleventh  file  is  not  allocated. 
This  is  not  a  problem  in  actuality,  since  this  feature  is  only  used  to  switch  prompt 
mode  and  should  not  be  needed  more  than  a  few  times  in  a  session.  The  last  instruc¬ 
tion  in  the  CLIST  allocates  a  dataset  named  PLOT.  DATA  for  plotter  output.  The 
raw  plot  data  for  the  plotter  generated  in  the  plotting  routines  will  be  written  on  the 
dataset  to  be  kept  until  plotted  out  using  the  CLIST  named  GETPLT.  CLIST,  also  in 
the  figur  :.. 


To  compile  the  FORTRAN  source  and  resolve  external  references,  two  CLISTs 
are  used.  The  CLIST  named  FORTPL.  CLIST  compiles  the  graphics  routines  in  data 
set  GRAFIX.  FORT  and  loads  the  object  module  into  a  data  set  named  LINK  EM.  CLIST. 
The  CLIST  named  LINZEM.  CLIST  compiles  the  rest  of  the  source  (located  in  data  set 
ECK1.  FORT),  links  it  w.th  the  plotting  routines,  and  resolves  external  references 
from  the  FORTLIB,  SCIN.  PGMLIB,  and  SCIN.  SCILIB  libraries.  The  load  module  is 
placed  in  data  set  ECK.  LOAD  and  a  message  is  printed  on  the  terminal  telling  the 
user  the  program  may  be  executed  by  typing  'CALL  ECK(MAIN)'. 

The  libraries  referenced  contain  the  plotting  routines  and  the  interpolative 
routine  used  in  subroutine  BACK. 

Usually  the  program  is  ready  to  execute,  so  the  user  only  needs  to  execute  the 
CLIST  GETSET.  CLIST  and  call  the  program  without  having  to  compile  and  llnkedit, 
unless  he  has  modified  the  source  code.  Note  that  if  the  user  wants  to  write  the 
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Figure  B-l.  TSO  Command  Procedurei  Used  to  Run  LACM  2.0  at  Hughes. 
Each  procedure  is  involved  by  typing  “ex  name”  where  name  is  the  proceduri 
to  be  involved. 
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output  on  a  unit  other  than  unit  c ,  he  must  have  allocated  the  unit  prior  to  running  the 
program,  since  the  program  will  ask  him  for  the  logical  unit  number. 

MODULE  DESCRIPTIONS 

The  module  descriptions  that  follow  are  not  intended  to  fully  describe  the  entire 
module  in  detail.  The  modules  are  commented  and  thus  the  source  code  contains  a 
great  deal  of  information,  so  the  material  presented  here  describes  the  general  fea¬ 
tures  of  the  modules  and  explains  unusual  portions  of  code.  Table  B-l  presents  a 
summary  of  the  modules,  their  function  in  the  program,  and  flow  diagrams  for  the 
modules  appear  in  the  following  pages. 

MAIN 

This  is  the  routine  that  directs  the  flow  of  the  program,  reading  the  input,  calling 
the  routines  to  compute  the  output  and  generate  graphics.  The  first  read  statement 
reads  a  flag  which  is  1  for  time-sharing.  The  write  statement  immediately  proceding 
it  prompts  the  interactive  user  to  start  by  entering  a  1.  Note  that  the  interactive  input 
routine  TSHARE  is  called  or  the  program  skips  to  read  the  inputs  in  formatted  form  in 
the  case  of  batch  (background)  processing.  The  rest  of  the  program  flow  is  straight¬ 
forward,  as  illustrated  in  Figure  B-2.  Note  that  a  few  interactive  write/read  combina¬ 
tions  are  in  the  code  but  are  skipped  in  the  batch  mode.  In  all  cases  the  interactive 
user  is  prompted  for  his  input. 

BLOCK  DATA 

The  inpit  variables  and  constants  are  initialized  (defaulted)  in  this  portion  of 
code.  Most  of  the  data  is  for  the  atmospheric  model  and  consists  of  scattering  and 
absorption  coefficients  for  the  aerosol  and  molecular  atmospheric  constituents. 

Subroutine  TSHARE 

This  subroutine,  shown  in  Figure  B-3,  does  the  bulk  of  the  Interactive  inputs. 

It  prompt.,  the  user  for  information,  taking  into  account  what  choices  he  already  has 
made  about  his  system,  scenario,  or  desired  output.  Two  characteristics  make  this 
routine  a  bit  unusual:  they  are  the  availability  of  two  levels  of  prompting,  and  the 
capability  to  input  one  or  more  variables  after  a  run  for  the  next  run  without  going 
through  fiie  entire  list. 

The  prompt  level  is  controlled  by  a  logical  flag  PROMPT  which  is  true  for  full 
prompt  and  false  for  partial  prompt.  The  full  prompt  message  prints  out  the  input 
oode  (if  it  exists  for  the  inputs,  the  variable  name,  description,  and  default  value  if 
there  is  one.  The  partial  prompt  mode  only  prints  the  input  code  and  variable  name. 
The  prompt  flag  may  be  switched  by  the  user  by  typing  in  an  end  of  file  (/*  on  IBM). 

The  READ  statement  has  an  end-cf-file  check  which  branches  to  statement  650  where 
the  prompt  switch  is  negated  (PROMPT  =  .NOT. PROMPT),  the  file  is  incremented* 
and  the  program  resumes  at  the  input  oode  it  was  at  when  the  end  of  file  was  encoun¬ 
tered.  Two  methods  are  available  in  the  program  to  accomplish  this;  the  choice  of 
methods  is  dependent  on  the  installation  the  user  has  (See  the  JCL  notes  in  this 
appendix).  If  the  user  can  use  a  logical  unit,  with  several  files,  as  is  done  at  Hughes, 
the  'irst  file  will  be  on  logical  unit  5  (variable  LUNTT)  and  is  denoted  FT05F001.  When 
ar  -nd-of-file  on  the  terminal  is  encountered  the  system  automatically  will  read  off  of 
i T05F002  in  subsequent  read  instructions.  Thus  FT05F001,  FTCJF002,  etc.  are 
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TABLE  B-l  LACM  2.0  MODULE  NAMES  AND 
FUNCTIONAL  DESCRIPTIONS 

IS  —  . . .  .  .  _  . — _ 

Module  Function 


MAIN 

BLOCK  DATA 

TSHARE 

SETUP 

MODE5 

COMTOT 

BEAM 

TRANS 

FTHETA 

DELPHI 

ALFAEX 

ALFAAB 

ALFASC 

TSCAT 

BSDF 

RSCAT 

RHOBAK 

RHOOA 

BAFRAT 

STON 

BACK 

GRAFIX 

STOG 

STBEAM 

SIGMAT 

QG10 

CNSQ 


Controls  program  flow;  writes  output 

Initialization  of  default  data  values 

Interactive  inputs 

Sets  up  mode  geometry 

Calculates  total  power  at  a  point 

Computes  power  or  SNR  for  a  single  SR  orientation 

Computes  atmospheric  scatter  into  SR  FOV 

Computes  transmission  from  point  to  point 

Returns  value  for  scattering  distribution  F(0) 

Returns  FOV  integration  stepslze  required  to  main¬ 
tain  1%  accuracy 

Returns  extinction  coefficient 

Returns  absorption  coefficient 

Returns  scattering  coefficient 

Computes  transmitter  scatter  power  at  SR 

Returns  value  for  BSDF  of  transmitter 

Computes  receiver/backstop  scatter  power  at  SR 

Computes  bade  stop  directional  reflectance 

Computes  receiver  optics  directional  reflectance 

Computes  hood  effectiveness 

Computes  SNR 

Computes  background  power  in  SR 
Produces  graphics  (user  supplied) 

Computes  power  for  space-to-ground  case 

Computes  space-to-ground  link  beam  radius  and  on 
axis  irradiance 

Computes  atmospheric  turbulence  beamspread 
Gaussian  quadrature  Integrator 
Returns  atmospheric  structure  constant 
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Figure  B-2.  Flow  Diagram  for  LA  CM  2.0  MAIN 
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allocated  to  the  terminal  and  the  end  of  file  will  simply  cause  branching  to  statement 
number  650  to  reset  the  prompt  flag.  The  alternative  way  is  to  start  reading  on  unit  N 
and  increment  the  unit.  For  example,  allocate  logical  unit  20  to  the  terminal,  and  an 
end  of  file  will  cause  branching  to  statement  number  650  where  the  logical  unit  would 
be  incremented  (LUNIT  =  21).  The  variable  MODESW  controls  which  method  is  used,  and 
the  programmer  should  default  the  value  in  BLOCK  DATA  to  1  or  2  to  Belect  the  desired 
method.  Note  that  the  program  will  assume  input  is  coming  from  logical  unit  5  and 
unless  the  proper  files  are  allocated  the  prompt  switching  will  not  work.  However, 
the  program  will  work  in  the  full  prompt  mode  with  no  special  preparation  other  than 
the  usual  allocation  of  unit  5  to  the  terminal. 

The  capability  of  selecting  only  those  inputs  that  the  user  wants  changed  is 
accomplished  by  assigning  an  input  code  to  each  key  variable.  As  shown  in  Figure 
B-4,  the  transmitter  hood  length  has  an  input  code  of  20.  At  the  proper  time  the 
program  will  request  the  input  code.  In  certain  cases  changing  one  parameter  will 
affect  others.  In  many  of  those  cases  the  program  will  prompt  the  user  for  other 
variables.  Referring  to  the  figure,  it  can  be  seen  that  if  the  hood  length  is  changed  on 
a  one-at-a  time  basis  (i.e.,  the  logical  variable  CHANGE  is  true)  the  program  will 
also  ask  for  the  hood  diameter  before  returning  to  ask  for  the  next  input  code.  If  no 
other  inputs  are  to  be  changed  a  response  of  zero  will  end  die  input  session.  Table 
B-2  lists  the  variables,  their  descriptions,  input  codes,  and  default  values. 

Subroutine  SETUP 


The  geometry  for  each  mode  is  set  up  and  a  sequence  of  data  points  is  computed. 
A  flow  chart  is  shown  in  Figure  B-5.  The  first  computation  performed  checks  to  see 
if  the  bottom  edge  of  the  link  beam  hits  the  earth  between  the  transmitter  and  receiver. 
If  this  is  the  case,  a  warning  is  printed.  The  program  flow  then  goes  to  a  portion  of 
code  for  the  mode  selected.  Flow  charts  for  each  mode  are  shown  in  Figures  B-6 
through  B-10. 

•  In  Mode  1  the  SR  location  is  fixed  so  that  the  SR  altitude  is  oomputed  before 
entering  the  loop.  The  initial  SR  orientation  is  set  such  that  the  edge  of  the  SR  FOV 
is  on  the  transmitter.  The  orientation  angle  THETA  is  then  incremented  until  the 
edge  of  the  SR  FOV  is  on  the  receiver.  The  transmitter  and  receiver  are  treated  as 
point  sources,  and  placing  them  at  the  edge  of  the  FOV  enables  maximum  collection  of 
atmospheric  scatter  at  the  same  time.  The  power  or  SNR  is  returned  from  subroutine 
COMTOT  and  the  output  table  is  written  on  logical  unit  NOUT  if  NOUT  is  greater  than 
zero.  The  values  of  power  or  SNR  and  THETA  are  stored  in  the  arrays  XINT  and 
YINT  and  the  number  of  data  points  computed  NP  is  also  kept. 

Modes  2  and  3  are  functionally  very  similar  to  Mode  1  except  the  SR  position 
is  changing,  and  the  position  variables  X  and  RPX  must  be  computed  for  each  value 
of  THETA.  The  SR  altitude  HS  must  also  be  recomputed  at  each  location.  Note  that 
the  smallest  orientation  angle  THETA  allowed  is  one  degree.  The  call  to  subroutine 
COMTOT  and  output  table  WRITE  statement  are  done  in  the  same  way  as  in  Mode  1. 

Modes  4  and  5  iterate  to  find  contours  about  the  link.  The  root  finder  in  the 
program  uses  a  secant  method  of  approximation.  A  simple  expression  supplies  the 
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Figure  B-8.  Mode  3  Flow  Detail.  Mode  3  views  the  link  from  a  fixed  off-axis  distance. 


UNCLASSIFIED 


■  B-lr 


9-«mt 


•*Ss 


111999 


^CLASSIFIED 


SUBROUTINE  mode  s 


OBTAIN 

TRANSMITTER 

CONTRIBUTION 

ONLY 


RECEIVER 

CONTRIBUTION 

ONLY 


Figure  B-10.  Subroutine  MODE  5.  This  routine  calculates  the  total  power  at  a  point  off-axis. 
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initial  guess  of  the  root.  Based  on  this  guess,  it  will  attempt  to  make  better  and 
better  approximations  of  the  root  by  the  following  formula: 


RS 


i+1 


RSt  f(RSt) 


RSi  -  RSi-l 
f(RS.)-f(RSi_1) 


where  RS  =  radial  distance  to  transmitter 
f(RS)  =  POWER  or  S/N  at  RS 

Iteration  along  radials  from  the  transmitter  was  selected  because  other 
coordinates  may  have  severe  discontinuities  and  convergence  may  be  impossible  to 
attain.  In  Mode  4  f(RS)  is  provided  by  a  call  to  COMTOT  which  provides  power  or 
S/N  from  the  transmitter  and  the  portion  of  the  beam  in  the  SR  FOV,  while  for  Mode 
5  the  subroutine  MODE5  is  called,  which  returns  power  from  the  entire  link.  In  the 
case  a  guess  for  RS  is  negative,  the  previous  guess  for  RS  is  divided  in  half  and  used 
instead.  (Many  contours  are  very  rapidly  varying  functions  of  RS.  To  allow  easier 
convergence  the  values  are  in  dBW  for  power,  dB  for  SNR,  which  vary  less  rapidly 
since  they  are  in  log  space. )  If  convergence  is  not  attained  in  20  tries,  the  program 
goes  to  the  next  point,  and  will  print  a  message  warning  the  user  of  the  number  of 
points  that  did  not  converge.  A  sample  output  in  Section  3  illustrates  this.  (Figure 
3-20). 


Subroutine  COMTOT 


This  routine,  shown  in  Figure  B-ll,  calls  the  routines  that  calculate  the  power 
at  the  SR  from  the  transmitter,  receiver,  or  atmosphere.  It  decides  to  call  the 
routines  based  on  the  flag  MP  which  is  1  for  all  sources  of  scatter  to  be  included,  2  for 
atmospheric  scatter  only,  3  for  transmitter  scatter  only,  and  4  for  receiver/backstop 
scatter  only.  In  addition  It  calls  STON  to  oompute  signal-to-nolse  ratio  if  MCOMP  has 
been  set  to  a  value  other  than  1. 

Subroutine  BEAM 


The  power  scattered  off  the  atmosphere  to  the  SR  is  calculated  in  this  routine 
as  shown  in  Figure  B-12.  If  the  SR  FOV  is  large  enough,  it  is  broken  up  into  a 
□umber  of  smaller  segments  and  these  are  treated  separately.  The  transmittance 
from  transmitter  to  SR  is  computed  only  once  if  it  will  not  vary  more  than  2.5%  for 
any  of  the  small  elemental  fields  of  view.  Subroutine  DELPHI  computes  the  number 
of  FOV  steps  needed  to  maintain  accuracy  in  F(6),  as  F(6)  (Atmospheric  Scattering 
Distribution)  varies  rapidly  in  places  and  a  large  FOV  would  intercept  a  range  of 
values  that  differed  by  more  than  1%. 

Subroutine  TRANS 


The  transmittance  from  a  point  at  an  altitude  HI  to  a  point  at  an  altitude  H2  at  a 
range  R  is  computed  by  this  subroutine  shown  in  Figure  B-13.  Function  ALFAEX  ts 
used  to  get  the  extinction  coefficient  as  a  function  of  path  altitude,  as  the  Integration 
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Figure  B-ll.  Subroutine  COMTOT.  This  routine  computes  power  At  a  point  for  a  fixed 
SR  orientation. 
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F.e^re  B-13.  Subroutine  TRANS.  This  routine  computes  transmittance  from  point  to  point  over 
a  curved  earth. 
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is  carried  out  along  the  propagation  path.  In  the  case  the  range  is  less  than  200  meters 
or  the  atmospheric  model  is  only  good  for  co-altitude  (i.e. ,  fixed  coefficients)  the 
transmission  is  computed  without  integration. 

Function  FTHETA 


The  atmospheric  scattering  distribution  function  F(6)  is  difficult  to  calculate 
efficiently,  since  it  involves  application  of  the  Mie  theory  and  iterative  techniques  are 
usually  used.  For  this  reason,  two  curves  were  selected  to  be  used  in  the  program 
and  the  curve  fit  expression  are  used  instead.  The  FTHETA  flow  chart  is  shown  in 
Figure  B-14.  Note  that  one  is  used  for  wavelengths  less  than  5  |j.m  while  the  other 
for  wavelengths  greater  than  5  fim.  It  should  also  be  noted  that  the  form  of  these 
equations  is  of  no  physical  significance,  i.e.,  they  were  not  derived,  but  curvefit  by 
trial  and  error  to  fit  experimental  data. 

Function  DELPHI 

This  function,  shown  in  Figure  B-15,  computes  the  number  of  elemental  SR 
FOV  needed  to  achieve  a  set  accuracy.  An  approximate  expression  for  dF(6)/d6 
is  used. 

Functions  ALFAEX,  ALFASC,  ALFAAB 


These  functions  return  the  extinction,  scattering,  and  absorption  coefficients , 
respectively,  as  a  function  of  altitude.  ALFAEX  does  nothing  more  than  add  the  absorp¬ 
tion  and  scattering  coefficients.  ALFAAB  and  ALFASC,  shown  in  Figures  B-16  and 
B-17  respectively,  are  identical  in  form  and  have  two  modes  of  operation.  The  first 
of  these  returns  a  fixed  coefficient  that  has  been  input  by  the  user.  The  second  uses 
the  tables  of  AFGL  data.  The  index  of  the  proper  coefficient  is  calculated  from  the 
altitude  and  the  coefficient  is  returned.  (Note  that  the  choice  of  wavelength,  climatic 
model,  and  visibility  have  already  been  made  and  the  arrays  AS  and  AB  were  loaded 
from  the  master  array  AT  with  the  coefficients  for  the  selected  combination  of  param¬ 
eters.  )  In  the  case  an  altitude  greater  than  100  km  is  specified,  the  coefficient  is 
zero,  and  in  the  case  an  altitude  is  negative  the  coefficient  for  sea  level  is  returned 
so  that  oontours  may  be  generated  for  the  case  of  slant  path  links  where  part  of  the 
contour  is  under  the  earth.  A  message  is  printed  to  inform  the  user  of  this 
occurrence. 

Subroutine  TSCAT 

This  routine  uses  a  straightforward  application  of  the  models  described  In 
Section  2  and  3  to  compute  power  scattered  from  the  transmitter.  A  flow  chart  is 
shown  in  Figure  B-18.  Functions  BAFRAT  and  BSDF  are  used  to  evaluate  the  hood 
effectiveness  and  help  compute  the  lens  scatter.  The  transmittance  from  the  SR  to 
the  transmitter  is  oomputed  differently  for  the  space  to  ground  case,  as  only  the  dis¬ 
tance  inside  the  earth's  atmosphere  will  affect  the  transmittance. 
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FUNCTION  FT  META  (THETA) 


Figure  B-14.  Function  FTHETA  This  routine  computes  an  approximate  atmospheric  scattering 
distribution  function.  L  is  a  flag  delineating  wavelength  regimes. 
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FUNCTION  OEUPHI  (THETA,  PHI,  OPHI) 
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Figure  B-16.  Function  ALFAAB.  This  function  rr  turns  the  absorption  coefficient  as  a  function  of 
altitur  using  AFGL  .ables. 
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Figure  B-18.  Subroutine  TSCAT.  This  routine  computes  total  power  at  SR  due  to  transmitter 
scatter. 
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Function  BSDF 


The  bidirectional  scattering  distribution  function  (BSDF)  is  approximated  by  a 
straight  line  in  log  space  and  is  computed  in  this  function,  shown  in  Figure  B-19. 
After  the  straight  line  value  is  obtained  the  glitches  are  added  in  if  applicable. 

Subroutine  RSCAT 


The  power  reflected  from  the  receiver/backstop  is  computed  in  this  routine 
using  the  equation  presented  in  Section  3.  The  backstop  is  assumed  to  intercept  the 
entire  main  lobe  of  the  beam.  A  flow  chart  is  shown  in  Figure  B-20. 

Functions  RHOBAK  and  RHOOA 


The  directional  reflectance  of  the  backstop  and  receiver  optics  are  computed 
in  these  routines  using  the  diffuse  and  specular  component  models.  Flow  diagrams 
appear  in  Figure  B-21  and  B-22.  The  backstop  can  be  oriented  in  an  arbitrary 
manner  and  can  have  a  Lambertian  scattering  profile,  while  the  receiver  optics  are 
always  assumed  to  be  pointing  at  the  link  transmitter. 

Function  BAFRAT 


Off-axis  lens  scatter  may  be  blocked  by  using  a  hood.  BAFRAT,  shown  in 
Figure  B-23,  calculates  the  effectiveness  of  such  a  hood  assuming  it  is  cylindrical 
and  perfectly  absorbing.  The  effectiveness  of  the  baffle  is  the  fraction  of  the  area  of 
the  optics  that  can  be  seen  at  a  given  off-axis  angle;  so,  for  example,  when  this 
effectiveness  is  zero  the  baffle  is  blocking  all  transmitter  off-axis  radiation  at  that  angle. 

Subroutines  STON  and  BACK 


Subroutine  STON,  shown  in  Figure  B-24,  is  a  straightforward  code  of  the 
signal-to-noise  expressions  discussed  in  Section  2.  The  SNR  is  returned  in  decibels. 
The  background  power  PBACK  is  calculated  in  subroutine  BACK  of  Figure  B-25. 
Three  choices  are  available,  night,  cloudy,  or  sunny.  The  earth  background  is  com¬ 
puted  using  a  blackbody  curve,  and  the  solar  background  is  interpolated  from  tables. 
A  multiplicative  factor  of  .01  is  used  to  obtain  the  cloudy  day  solar  background  from 
the  sunny  day  figure.  The  solar  background  is  broken  into  two  tables  of  equally 
spaced  points,  one  in  the  UV  and  the  other  from  the  visible  into  the  near-IR,  and  IF 
statements  prevent  their  use  out  of  the  tables'  ranges. 

Subroutines  STOG  and  STBEAM 


The  space-to-ground  beam  power  calculation  is  done  in  subroutine  STOG  shown 
in  Figure  B-26,  by  breaking  up  the  vertical  beam  into  many  vertical  elements.  Each 
vertical  element  is  treated  by  using  the  narrowbeam  analysis  routine  BEAM.  The 
vertical  elements  are  arranged  in  an  evenly  spaced  grid  with  a  row  down  the  SR  optical 
axis  and  rows  to  either  side.  The  center  row  is  accounted  for  first,  and  the  outer  rows 
are  done  by  multiplying  the  result  for  one  side  by  two.  Each  element  is  checked  to  see 
if  it  is  within  the  azimuth  FOV  of  the  SR  and  within  the  l/e*  power  points  of  the  beam 
before  its  power  contribution  is  accounted  for,  and  the  power  weighting  statement 
function  WEIGHT  is  used  to  model  the  gaussian  power  density  profile.  Subroutine 
STBEAM,  presented  in  Figure  B-27  is  a  straightforward  application  of  the  equations 
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FUNCTION  BSDF  (AN6) 


Figure  B-19.  Function  BSDF.  This  routine  returns  the  bidirectional  scattering  distribution  function 
for  the  transmitter  optics. 
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Figure  B-22.  Function  RHOOA.  This  function  calculates  the  directional  reflectance  of  the  receiver 
optics  for  a  given  off-axis  angle. 
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Figure  B-23. 
optics  risible 
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FUNCTION  BAFRAT  (Dl.  02,  THETA,  BL) 
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Function  BAFRAT.  This  routine  calculates  the  fractional  area  of  the  transmitter 
at  an  off-axis  angle  6. 
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Figure  B-24.  Subroutine  STON.  This  routine  calculates  the  SNR  for  either  direct  or  heterodyne 
receivers. 
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SUBROUTINE  BACK  (PBACK) 


Figure  B-25.  Subroutine  BACK.  This  routine  computes  the  background  noise  power  for  a  sunny 
day,  .loudy  day  or  nighttime  scenario. 
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SUBROUTINE  ST  BE  AM  (R6EAM,  GRNOIR) 


CALCULATE  TURBULENCE  JITTER 


CALCULATE  TRANSMITTANCE 
TO  GROUND 


figure  B-27.  Subroutine  STBEAM.  In  the  case  the  user  prefers  that  the  beam  radius  and  intensity 
«  n  the  ground  be  calculated,  this  routine  is  called. 
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for  on-axis  intensity  and  beam  radius  discussed  in  Section  2.  STBEAM  is  called  only 
if  the  user  wants  the  beam  radius  and  on-axis  intensity  calculated,  for  if  he  chooses 
he  may  input  those  parameters. 

Turbulence  Routines 


The  subroutines  SIGMAT  and  QGIO  of  Figures  B-28  and  B-29  respectively  and 
function  CNSQ,  shown  in  Figure  B-30,  are  used  to  compute  the  half-angle  beamspread 
of  the  space-to-ground  link  beam.  SIGMAT  provides  the  geometry  needed  to  describe 
the  path,  calls  QGIO,  which  integrates  CNSQ  over  the  limits  provided  and  the  integra¬ 
tion  result  is  used  to  compute  the  beamspread.  Function  CNSQ  returns  the  atmo¬ 
spheric  structure  constant  Cn^  for  a  given  altitude  H.  Subroutine  QGIO  is  an 
integrator  that  uses  a  10-point  guassian  quadrature  method. 
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Fi^ore  B-28.  Subroutine  SIGMAT.  This  subroutine  calculates  the  one-sigma  jitter  due  to  turbulence 
of  the  atmosphere. 
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SUBROUTINE  QGIO  (BU  BU,  FCT,  OELTA2,  V) 


Figure  B-29.  Subroutine  QGIO.  This  is  a  ten-point  gau&sian  quadrature  integrator. 
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r'igure  BOO.  Function  CNSQ.  This  returns  the  atmospheric  structure  constant  at  a  given  altitude  H 
for  tr  .d,  moderate,  r  strong  turbulence. 
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Section  II 
Off-axis  Sample  Run 


1 


input,  fils? 


do  you  want  an  input  summary' 


0— no  J -«es 


input  summary  *  *  * 


scenario  geometry 

link  range*  m  - 

rc  alt*  m  - 

background  type  — 

link  parameters 

wavelength*  m  - 

rc  aperture*  m  - 

rc  hood  Length*  m- 


;r  parameters 

linear  fov*  rad 
fov  across  beam*  r 

mod.  depth  - 

bandwidth*  he  - 

dark  current*  a  — 
opt  bw*  microns  ■ — 
bit  interval*  s  ~~ 


Format  for  input  file: 


5  *  000E+03 
2 . 000E+0.1. 


1 , 060E-06 
0  •  1 00 Of) 
0.00 


t  r  alt*  m 
s r  alt*  m 


8 . 000E-02 
1 . 700E-02 
1.  .  00 
1 ,00 
1 . 000E+06 
t . 000E-09 
5 , 000E-02 
1.  ,  000 E- 06 


tr  power*  w  - 

t  r  aperture  *  in  — 
tr  hood  length,  m 
+■  r  h« am  width*  rad 
turbulence  - 


aperture*  so.m*  ■ 
detection  type*  - 
excess  n o :i.  s e  - 

quantum  sff.  - 


the  r  mi 


2. 000 E +01 

i . o o o  f " +oi 


1 . O00E+OO 

0 . 1 oooo 
0 . 00 
1  .0008-04 
m  j  1  d 


0 . Oh 00 


1 .  oooE+on 


1 , 00OF-1 2 


file?? 


t input  lam— 4  >  is  — 2*  mat— 2*  mvj. s  — 2*  dt—  .  i.  «  phi  t*«0001.  *  i  bsdf *? •  ybsdf  =  200  . 
absdf--2-5*  ns=0*  dv-.L*  nfciak-3*  bdi  f  f'=  ,  15  .  pa  i  a:c-o  .  o  *  p«  i  »l  =0 . 0  «  noe=i  > 
Pt  =  1.0*  r  1  -  5000  *  ht  =  20*  hr » 20  *  i  S+og=0*  'W=’(  m  or.  mess  2  ..  nip  as  i  .  I  rtwpp«2, 

.  m  —  1  ♦  0  y  t a  —  ,  /  *  S  —  1  *  0  *  1*  —  .1  ,  ( 1  *  ’"i  a  r  I-:.  1—0*0.  t ,  f  —  *' m  —  1  *  Oe  —  't  2  .  law  r  —  1  *  0 ►- 1".  « 

L'wop  ™.,  —  »  v 1  j  *  n  f  I  a  =  l  *  b  w  —  |.  .  0  e  ■■  *  a  a  r  —  *  0  »  p  h  i  — »  0 8  0  *  p  1  a  ?.  —  .O'  V  ,  o  1  t  —  0  .  <  i . 
ij  1  r— 0-*O»  g  a  m  i  n  !'■ — O  .  O  ■■  mooe  —  o*  ra  v;  — .3  *  be3  *  tn*.  I.a—  So  .  —  1  .  i  w  . .  h  —  I  ..Oip  —  , 

i'lpta  — ...» *  To  r  ifi  i  s  i  | » 0  *  l- or  ml  (  2  1  =  I  -  0-  t  o  r  ivt  I,  .  .  >  —  :  .  o  +opmO(  1  — o  .  () . 
f  a  r  m  0  '■  2 1  =  o ,  0 »  r  a  r  m  0  <  3  >  =o  •  0  f> 


2 


.  r.  t  ©  r  c  e  p  t  m  a  d  e  -  a  r  s  %  e  t  e  r 


mode  .tap©  . . 

sr  plane*  desl  - 

s t m o s p h e ri'C  p a rameter a 


0 » 00 


Output,  tvp©  - 

ape  C 1 J  I  3  r  3  a  m  i  n  t 


data  source  -  afal 

midlatitude  summer  visibility  is 

coefficients  for  0  to  1000  meters  altitude 
scat  coef  1/m  -  2,008E-G4  abs  coef «  .1  /m  - 


o  r  i  • 
i  'i  ,v  oO 


5.S20F-05 


scattering  data  for  transmitter*  receiver*  and  backstop 


bsdf  model  type  —  average 

nonl inesri ties  -  0 

backstop  type  -  lambertian 

backstop  az *  des  0,00 


os  tyr-e  - 

specular  max 


unknown 

0 .000 


b  s  d  f  s  1  a  p  e  d  b  /  d  b 
bsdf  :i.  ri  t  e  r  c  e  p  t  - 

r e  f lection  coef  - 
backstop  el*  des 

diffuse  level  - 

s p e c u 1 a r  wi d t h •  d 


-2  -  Son 

200 . 000 

0 , 1.  too 
0 . 00 

0 , 000 
o » too 


do  you  want  an  output  table?  0-no  1-ves 
which  file?  (must  be  allocated) 

interceptibi 1 ita  mode  6 
SR  location: 

rex  *  2.5E103  x  =  1.000E+03  theta  ~  2*<S18E+00 


shot 

no 

i  se 

limited  performance  - 

2  * 50E-01  <  P  r ( a  )  <  5. OOF 

{\ 

do 

you 

wish  to  do  a  sensitivity 

a  n  a 1 y  s i s  ?  0-no  1  — v e  s 

{  J 

•i 

do 

you 

want  another  run?  .1.  -yes 

2— no 

I 

interactive 

do 

you 

w  i  s h  t o  change  any  t h  i  ns'? 

1  -yes  no  3 -a  1  1 

1 

lam 
( 1  - 

nr  , 

*  ■../  J.  *1 

—  u  a  v  e  1.  e  n  4 1  h  i  n  d  e  x 
>5  2-  *6328  '-,85  4-1 

4 

,  0  6  5  -10*  5  2  1  A  -  o  t.  h  e  r  i 

~t 

23 

i  a 

—  atmospherics  ' 1 -user 

2 

|  input  variable 

input  code 


3 


met  —  atmospheric  model 

1  -  tropical 

2  -  m  i  d  1  a  t  1 1 u he  s u m m e  r 

3  ~  mi dlatitude  winter 

4  -  subarctic  summer 

5  —  subarctic  winter 

irivis  --  visibility  <  1 -clear  2-hazy) 


.  1 

dt 

transmitter  optics  diameter  *  m 

o.  ioo 

3 

le-4 

phi  t 

transmitter  beemwidth.  radians 

i . ooof-ou 

31 

1 

ibsdf 

— 

bsdf  (1 --default.  2-user) 

jL 

4 

*  1 

dr 

-- 

link  receiver  optics  diameter-  m 

0 . 1  00 

~r  rn 

O  *4. 

nbsk 

— 

backstop  <l-defsu.lt*  2-user-  3-iamh«rti?n) 

*15 

bdi  f  f 

— 

diffuse  reflectance  < 0  to  1) 
•'Lambertian  model-  ed .  .1) 

44 

PS  i  32 

32.  orien t a t i o n  o f  backstop  < d e M ) 

0  -  normal  to  beam 

0 . 000 

V 

a 

psiel 

el.  orientation  of  backstop  <deg> 

0  -  norma],  to  beam 

0 . 000 

%✓ 

wV  w' 

1 

n  o  3 

— 

rcvr  scatter  it— default-  2— user) 

1 

6 

•i 

r-t 

— 

transmit  power  •  watts 

1 , 0001- too 

.1 

o 

w 

ur  _  -t 

•J  6  v-/ 

r  1 

— 

1  .i.  n k  r a n si e  •  meter® 

1=1 , 00 OF  10 3 

o 

/ 

20 

ht 

— 

a  1 1,  i  t  u  d  e  o  f  t,  r  a  n  s  m  j  t 1  e  r  *  meters 

2 ♦ 000 F+n 1 

10 

20 

hr 

■' — 

a  1 1 i tude  o f  1  i. n k  receiver-  m 

2- 00 OF +01 

48 

1 

:L  w 

t  u  r  b  u  1  e  n  c  e 

1. -severe  2-moderate  3-mi. Id 

J. 

25 

HtCOITiP 

compute  1.— power  2— s/n  ratio 

er 

•« 

source?  1— sum*  2  —  atm*  3— t.r»  4-rc 

1 

.1. 

1 3 

i rtype 

s  r  t.  y  p  e  <  l  -  d  e  f  a  u  1 1  •  2  —  u  «  e  r  i  n  p  ■  •  t.  > 

•  * 

J.  T 

J-.'ITi 
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Section  III 

Off-axis  Program  Listing 


PROGRAM  LISTING  OF  of  f-axis 


OFF-AXIS  ANALYSIS  PROGRAM 
D.  JONES  714-871-3232  X  4579 
T.  YUNGHANS  X  4582 

HUGHES  AIRCRAFT  COMPANY 
FULLERTON,  CA 

MODIFIED  TO  DO  PROBABILITY  OF  BIT  ERROR  ANALYSIS 
BILL  JAEGER 
MIT  BLG.  36-477 
CAMBRIDGE,  MA 

common/  flags  /mode, mcomp,mp, lam, modesw,lunit,nout,istog,iotype, 
irtype , ihet , ibf lag, iw 

common/rsct/oasmax , dif foa , oafwhm , bmaxs , bfwhms , bdif f  ( 6 ) , psiaz , psiel 
,gams 

common/  atmos  /alfa(5,2) ,alfscfc,alfab,ia,ab(33) ,as(33) ,at(33,l4,6) 
,mat,mvis 

common/  tbsdf  /  ng,gstart(3) ,gend(3) ,gampl(3) ,ybsdf ,sbsdf ,nbak,noa 
,ibsdf 

common/  tdata  /  blt,dt,ht,phit,pt ,rb,grndi,bdrt,sigj ,sigt 
common/  rdata  /  blr,dr ,hr,gl,bdlr 
common/  srdata  /  asr ,hs,phi,phiaz ,dphi 

common/  ldata  /  rl,alam,rpx, theta, x,angtr,angrec,gamint,bw 
darki  &  ptherm  replace  pnep,  add  g  * 
common/  sndata  /  bwr, eta, f,em,pb,ps, darki, ptherm, snpndb,sndb,xm, 
bwopt ,nflg,g 

common/  stgout  /  nvel ,svel ,avel ,ndown,ncros,numtot,hvnear, 
hvfar ,xdis, hdis, hdisdf ,xclos,hclos, hclsdf ,kount 
srdark  &  srther  replace  srpnep  • 
common/block1/xmod(6) ,gainsr(6) ,qe(6) ,fnoise(6) ,srbw(6) , 
srdark(6) ,srther(6) ,alamda(6) ,obw(6) ,nhol(6) 
common  /pltc  /  xint(200) ,yint(200) , h( 200 ) ,dcomp(2) ,np,note 
dimension  headyl  &  heady2  (2by3)  # 
common/  hrith  /  title( 18) ,headx1(2,2) ,headx2(2,2) ,heady1(2,3) , 
heady2(2,3) ,brhol( 2) ,bakhol(2) ,oahol(2) ,mattyp(5,5) ,mvtyp(2,2) , 
mathol(2) ,holdet(2) ,holiw(2,3) 

common/err/ier , ierab, iersc , ierbr ,devab , devsc , devbr 
add  labeled  common  wavefm  * 

common/  wavefm  /npts, t , form0(  1 000) ,form1 ( 1 000) ,power0( 1 000) , 
powerl( 1000) 

data  onedeg, pi, r2d/. 0174532925, 3. 141592654, 57. 29577951/ 

INPUT  DESCRIPTIONS 

THE  MFCS  SYSTEM  OF  UNITS  IS  USED  UNLESS  OTHERWISE 
SPECIFIED 
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c  LINK  VARIABLES 

c 

c  LAM  -  WAVELENGTH  INDEX 

0  RL  -  LINK  RANGE  (M) 

C  IA  -  ATMOSPHERICS  (1-USER,  2-AFGL) 

C  ALFSCT  -  ATMOS.  SCAT.  COEF.  (1/M) 

0  ALFAB  -  ATMOS.  ABS.  COEF.  (1/M) 

c 

C  TRANSMITTER  VARIABLES 

c 

c  HT  -  ALTITUDE  OF  TRANSMITTER  (M) 

c  PT  -  LINK  TRANSMIT  POWER  OUT  OF  OPTICS  (W) 

c  DT  -  TRANSMITTER  OPTICS  DIAMETER  (M) 

c  PHIT  -  TRANa-iITTER  BEAMWIDTH  (RAD) 

c  BLT  -  TRANSMITTER  HOOD  LENGTH  (M) 

c  IBSDF  -  PORT  SCATTER  FLAG  (1 -DEFAULT,  2-USER) 

c  (VALUES  BELOW  ARE  DEFAULTED) 

c  YBSDF  -  Y-INTERCEPT  OF  BSDF  CURVE  (AT  1  DEGREE) 

c  SBSDF  -  SLOPE  OF  BSDF  CURVE  (LOG-LOG) 

C  NG  -  NO.  OF  DISCONTINUITIES  (GLITCHES)  IN  BSDF  (MAX.  OF  3) 

C  GST ART  -  START  OF  GLITCH  , ARRAY  OF  3  (DEGREES) 

C  GEND  -  END  OF  GLITCH, ARRAY  OF  3  (DEGREES) 

c  GAMPL  -  AMPLITUDE  OF  GLITCH,  OVER  RANGE  SPECIFIED  ABOVE, 

c  ARRAY  OF  3  (DEGREES) 

c 

c  RECEIVER  VARIABLES 

c 

c  HR  -  ALTITUDE  OF  RECEIVER  (M) 

C  DR  -  RECEIVER  OPTICS  DIAMETER  (M) 

c  BLR  -  RECEIVER  HOOD  LENGTH  (M) 

C  NBAK  -  RECEIVER  BACKSTOP  (1 -DEFAULT,  2-USER) 

c  (VALUES  BELOW  ARE  DEFAULTED) 

C  BMAXS  -  MAXIMUM  REFLECTION  COEFFICIENT 

c  BFWHMS  -  FULL  WIDTH  AT  HALF  MAXIMUM  (DEGREES) 

c  BDIFF  -  DIFFUSE  BACKGROUND  REFLECTANCE 

c  NOA  -  RECEIVER  OPTICAL  REFLECTION  1-USER,  2-DEFAULT) 

c  (VALUES  BELOW  ARE  DEFAULTED) 

c  OASMAX  -  MAXIMUM  RECEIVER  OPTICAL  SCATTER 

c  OAFWHM  -  FULL  WIDTH  AT  HALF  MAXIMUM  (DEGREES) 

c  DIFFOA  -  DIFFUSE  BACKGROUND 

c 

c  SR  VARIABLES 

c 

c  HS  -  ALTITUDE  OF  SR  (M) 

c  ASR  -  SR  APERTURE  AREA  (M**2) 

c  PHI  -  SR  FIELD  OF  VIEW  (ELEV)  (RAD) 

c  PHIA2  -  SR  FIELD  OF  VIEW  (AZIMUTH)  (RAD) 

c  IRTYPE  -  SR  CHARACTERISTICS  (1-DEFAULT,  2-USER) 

c  (VALUES  BELOW  DEFAULTED,  ONLY  NEEDED  FOR  S/M  CASES) 
c  XM  -  MODULATION  DEPTH 
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C  G  PREDETECTION  GAIN  IN  SR 

c  ETA  -  QUATUM  EFFICIENCY  OF  DETECTOR 

C  F  EXCESS  NOISE  FACTOR 

c  BWR  -  BANDWIDTH  OF  SR,  (HZ) 

c  PTHERM  -  THERMAL  NOISE  EQV.  POWER  OF  SR 

c  DARKI  -  DARK  CURRENT  OF  SR 
C  BWOPT  -  SR  OPTICAL  BANDWIDTH  (MICRONS) 

c  NFLG  -  DAY/ NIGHT  FLAG  (1-DAY,  2 -NIGHT) 

C  BW  LINK  BANDWIDTH  (HZ) 

c 

C  INTERCEPT  VARIABLES 

c 

c  MCOMP  -  COMPUTE  (1 -POWER,  2-S/N  RATIO) 

C  MP  -  CONTRIBUTION  FLAG  ( 1-ALL.2-ATM0S,  3-TRANS,  4-RCVR) 

e  MODE  -  SELECTS  MODE  OF  OPERATION  (1-5) 

o  RPX  -  DISTANCE  FROM  XMTR  TO  BISECTOR  (M) 

c  X  -  DISTANCE  ALONG  BISECTOR  TO  BEAM  (M) 

o  DCOMP  -  VALUE  OF  CONTOUR  (DBW  OR  DB  S/N)  (MODES  4  AND  5) 

o 

C  SPACE  TO  GROUND  VARIABLES 

c  ISTOG  -  SPACE  TO  GROUND  FLAG  (O-NO,  1-YES) 

c  RB  RADIUS  OF  LINK  BEAM  (M) 

C  THETA  -  ZENITH  ANGLE  OF  SR  (DEG) 

c  GRNDI  -  EQUIVALENT  POWER  (WATTS/SQ.  M) 

c  GL  ALTITUDE  OF  GROUND  LEVEL  (M) 

c 

nout=1 
inpsun= 1 
c 

C  FIRST  READ. DETERMINES  WHETHER  THE  SYSTEM  IS  INTERACTIVE 
C  OR  IN  THE  BATCH  MODE, 

c 

c  IOTYPE=0  IS  BATCH  MODE 

c 

write  (6,300) 
read  (5,310)  iotype 
if  ( iotype. eq.O)  go  to  20 
c 

c  INTERACTIVE  MODE 

o 

c  THE  VALUE  OF  N  TELLS  TSHARE  IF  THIS  IS  THE  FIRST  CALL. 

C  IF  TSHARE  RETURNS  N=10,  EXECUTION  IS  TERMINATED 

n=0 
c 

10  call  tshare  (n) 

if  (n.eq.10)  go  to  280 
go  to  70 
c 

o  BATCH  INPUTS 

o 
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o  *  add  batch  input  capabilities  * 

20  call  batch 

C  SET  FALGS  TO  RETURN  TO  TSHARE  FOR  CHANGES 
n=1 

iotype=1 

c 

c  *****  WRITE  THE  INPUTS  OUT  ***** 


70  mf  1=1 

if  (mode.ge.4)  mfl=2 
c  *  Pr(e)  heading  for  mode  6  * 
if  (mode.eq.6)  mfl=3 
if  (iotype.eq.O)  go  to  80 
write  (6,380) 
read  (lunit,1040)  inpsum 
if  (inpsum. eq.O)  go  to  170 
c 

80  write  (6,480) 

if  (istog.eq.1)  write  (6,930) 
write  (6,490) 
write  (6,500)  rl,ht 
write  (6,510)  hr,hs 
theta= the ta*r2d 

if  (istog.eq.1)  write  (6,530)  x, theta 
the ta= theta/ r2d 

if  (istog.eq.1 .and. ibflag.eq. 2)  write  (6,540)  gl,rb 
if  (istog.eq.1 .and. ibflag.eq. 1)  write  (6,550)  gl 
nf 1 =2*nf lg-1 
nf2=nf1+1 

if  (mcomp.eq.2.and.ihet.eq. 1 )  write  (6,520)  nhol(nf1 ) ,nhol(nf2) 
write  (6,560) 

if  (istog.eq.O.or.ibflag.eq.1)  write  (6,570)  alam.pt 
if  (istog.eq.1 .and. ibflag.eq. 2)  write  (6,580)  alam,grndi 
write  (6,590)  dr,dt 
write  (6,600)  blr.blt 

if  (blr.ne.0..or.blt.ne.0.)  write  (6,610)  bdlr.bdrt 
if  (istog.eq.1 .and. ibflag.eq. 1)  write  (6,620)  sigj,(holiw(i,iw) , 
&  i=1 ,2) 

write  (6,630)  phit 

c  *  add  turbulence  to  narrow  beam  inputs  • 

if  (istog.eq.0)  write  (6,625)  (holiw( i,iw) ,i=1 ,2) 

write  (6,640) 

if  (istog.eq.1)  go  to  90 

write  (6,650)  phi.asr 

go  to  100 

90  write  (6,660)  phi,phiaz,asr 

100  if  (mcomp.eq.2)  write  (6,670)  phiaz ,holdet( ihet) 
c 


c 


if  (mcomp.eq.1)  go  to  110 


write  (6,690)  g,f 
write  (6,695)  xm 
write  (6,700)  bwr,eta 
c  *  darki  &  ptherm  replace  pnep  » 

if  (ihet.eq.1)  write  (6,681)  darki, ptherm 
if  (ihet.eq.1)  write  (6,680)  bwopt 
if  (ihet.eq.2)  write  (6,685)  bwopt, em 
c  *  add  bit  interval  time  * 

if  (mode.eq.6)  write  (6,686)  t 
c  MODE  PARAMETERS 

110  if  (istog.eq.1)  go  to  120 

write  (6,720) 

write  (6,730)  mode,heady1(mcomp,mf 1) ,heady2(mcomp,mf 1) 
c  *  skip  SR  location  if  mode  6  * 
if  (mode.eq.6)  go  to  115 
if  (mode. It. 4)  write  (6,760)  rpx,x 
if  (mode.ge.il)  write  (6,770)  dcomp(mcomp) 

115  gams=0. 

cs=cos(psiel)*sin(psiaz) 
if  (cs.ne.0.)  gams=atan2( sin(psiel) ,cs) 
gamsd=gams*r2d 
gamd=gamint*r2d 
write  (6 ,7*10)  gamd,gamsd 
120  write  (6,780) 

write  (6,800)  mathol(ia) 
if  ( ia.eq.2)  go  to  130 
write  (6,810) 

write  (6,790)  alfsct,alfab 
go  to  140 

130  write  (6,820)  (mattyp(i,mat ) ,i=1 ,5) , (mvtyp(i,mvis) ,i=1 ,2) 
write  (6,790)  as(2),ab(2) 

140  write  (6,830) 

write  (6,8110)  brhol(  1 )  ,brhol(2)  ,sbsdf 
write  (6,850)  ng,ybsdf 

if  (ng.gt.0)  write  (6,860)  (i,gstart(i) ,gend(i) ,gampl(i) ,i=1 ,ng) 
C  LAMBERTIAN  MODEL 

if  (nbak.lt. 3)  go  to  150 
write  (6,870)  bdiff(lam) 
go  to  160 

150  write  (6,880)  bakhol( 1 ) ,bakhol(2) ,bdiff(lam) 
write  (6,890)  bmaxs,bfwhms 
160  psiazd=psiaz*r2d 
psield=psiel*r2d 
write  (6,750)  psiazd, psield 
write  (6,900)  oahol( 1 ) ,oahol( 2) .diffoa 
write  (6,890)  oasmax,oafwho 
170  if  (istog.eq.1)  go  to  260 
c 

c  WRITE  SENSITIVITY  ANALYSIS  SUMMARY  IF  DOING  A  SENSITIVITY  . 
c  ANALYSIS 


c 

180 


c 

c 

c 


190 


200 


c 

c 

c 

c 


& 

c 

c 

c 

c 

c 

210 

c 

c 

c 


0 

c 

c 

c 

c 

c 

c 

c 

c 

c 


if(ier.eq.O.or.iotype.eq.O)  go  to  190 
write  (6,1000) 

if  (ierab.eq.1)  write  (6,1010)  devab 
if  (iersc.eq.1)  write  (6,1020)  devsc 
if  (ierbr.eq.1)  write  (6,1030)  devbr 

*****  WRITE  HEADING  FOR  OUTPUT  ***** 

if  (iotype.eq.0)  go  to  200 

write  (6,390) 

read  (lunit,1040)  nout 

if  (nout.eq.0)  go  to  210 

write  (6,400) 

read  (lunit,1040)  nout 

write  (6,360)  mode 

NOUT=1  FOR  EXPANDED  OUTPUT  FORMAT 

skip  output  heading  if  mode  6  * 
if  (mode.eq.6)  go  to  210 

if  (nout.ge.1)  write  (nout, 910)  headx1(mcomp,mf I) ,headx2(mcomp, 
mfl) ,heady1 (mcomp,mfl) ,heady2(mcomp,mf 1) 

*****  CALL  THE  COMPUTATIONAL  ROUTINES  ***** 

SETUP  IS  CALLED  FOR  NARROW  BEAM  ANALYSIS 

call  setup 


WARNING  MESSAGE  FOR  CONVERGENCE 
if  (note.ge.1)  write  (6,370)  note 
note=0 


*****  CALL  GRAPHING  ROUTINE  ***** 

GRAFIX  IS  A  SYSTEM-DEPENDENT  GRAPHICS  ROUTINE.  IT  MAY  BE  WRITTEN 
BY  A  USER  TO  PROVIDE  INTERACTIVE  GRAPHICS,  OR  WHATEVER 
HE  HAS  AT  HIS  DISPOSAL.  THE  HUGHES  ROUTINE  INCLUDES  A  PRINTER 
PLOT  FOR  USE  ON  TELETYPE  TERMINALS. 

call  grafix 

if  (iotype.eq.0)  go  to  270 

SENSITIVITY  ANALYSIS  INPUTS 
write  (6,410) 
read  (lunit,1040)  ier 
if  (ier.ne.O)  go  to  220 


c 

c 


/ 


IIO  SENSITIVITY  ANALYSIS;  SET  FLAGS  TO  ZERO 

ier=0 
ierbr=0 
iersc=0 
ierab=0 
go  to  270 

SENSITIVITY  ANALYSIS  INPUTS 

ABSORPTION  DEV. 

write  (6,420) 

read  ( Lunit , 1 040 )  ier  ab 

if  (ierab.eq.O)  go  to  230 

write  (6,430) 

read  (lunit, 1040)  devab 

SCATTERING  DEV. 

write  (6,440) 

read  (lunit, 1040)  iersc 

if  (iersc. eq.O)  go  to  240 

write  (6,430) 

read  (lunit, 1040)  devsc 

BSDF  DEV. 

write  (6,460) 

read  (lunit, 1040)  ierbr 

if  (ierbr. eq.O)  go  to  250 

write  (6,430) 

read  (lunit, 1040)  devbr 

go  to  180 

STOG  COMPUTES  SPACE  TO  GROUND  INTERCEPTIBILITY 

call  stog  (comp, ptstog, prstog, pastog, nret) 

WRITE  OUTPUT  FOR  SPACE  TO  GROUND  CASE 

write  (6,9f'’) 
write  (6,930) 

if  (ibflag.eq.1)  write  (6,940)  sigj.grndi 
write  (6,950)  rb,nvel,svel,svel,avel 
ndys2*ncros-1 
ndownsndown-1 

write  (6,960)  kount,ndown,ndy,numtot 
write  (6,970)  xdis,hdis,hdisdf 
write  (6,980)  xclos,f-jlos,hclsdf 
write  (6,990)  pastog, ptstog, prstog, comp 
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c 

270  n=1+iotype 

go  to  (280,10),  n 
if  (nout.ne.6)  close  (nout) 

280  stop 

c 

c 

290  format  ("1") 

300  format  (9x, "off-axis  analysis  program  —  ",/, 

4  15x, "enter  1  for  interactive  input  -  C  for  batch  input") 

310  format  (il) 

320  format  (22x,l8a4 ,//) 

330  format  (4x,l8a4) 

340  format  (i4,6e10.4) 

350  format  (4x,6e10.4) 

360  format  (//,5x, "interceptibility  mode  ",i2) 

370  format  (5x,B*  iteration  did  not  converge  at  ",i3,"  points") 

380  format  (10x,"do  you  want  an  input  summary?  0-no  1-yes") 

390  format  (//,10x,"do  you  want  an  output  table?  0-no  1-yes") 

400  format  (lOx, "which  file?  (must  be  allocated)") 

410  format  (//I Ox, "do  you  wish  to  do  a  sensitivity  analysis?  ", 

4  "0-no  1-yes") 

420  format  (/I Ox, "do  you  wish  to  vary  the  absorption  coef?  ", 

4  "0-no  1-yes") 

430  format  (/I  Ox, "fractional  change  (eg  .1  for  10?)",/,15x, 

4  "default  =  .1") 

440  format  (/I Ox, "do  you  wish  to  vary  the  scattering  coef?  ", 

4  "0-no  1-yes") 

460  format  (/I Ox, "do  you  wish  to  vary  the  bsdf?  0-no  1-yes") 

480  format  (///,20x, "***  input  summary  •**") 

490  format  (///5x, "scenario  geometry"/) 

500  format  (6x,"link  range,  m  - ", 2x, 1 pelO .3 ,5x, "tr  alt,  m  - ", 

4  2x,1pe10.3) 

510  format  (6x,"rc  alt,  m - ",2x,1pe10.3*5x,"sr  alt,  m - ", 

4  2x, IpelO .3) 

520  format  (6x, "background  type  — ",4x,2a4) 

530  format  (6x,"sr  dist  to  beam, m-",2x, IpelO. 3>5x,"sr  zenith  ang,  d-", 
4  6x,0pf6.2) 

540  format  (6x, "ground  alt,  m - ",7x, f5 .2,5x, "linkbeam  rad.  m — ",2x, 

4  IpelO. 3) 

550  format  (6x, "ground  alt,m - ",7x,f5.2) 

560  format  (/5x,"link  parameters"/) 

570  format  (6x, "wavelength,  m  - ",2x, IpelO .3»5x, "tr  power,  w  - ", 

4  2x, IpelO. 3) 

580  format  (6x, "wavelength,  m  - ",2x, IpelO  .3 ,5x, "eqv.  irr.,  w/sq.m", 

4  2x, IpelO. 3) 

590  format  (6x,"rc  aperture,  m  — ",4x, f8.5 ,5x, "tr  aperture,  n  — ",4x, 
4  f8.5) 

600  format  (6x,"rc  hood  length,  m-",7x,f5 .2,3x,"tr  hood  length,  m",7x, 
4  f5.2) 
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610  format  (6x,"rc  hood  dia.,  m  — " ,7x, f5 .2 ,5x, "tr  hood  dia.,  m  -",7x, 
4  f5.2) 

620  format  (6x, "total  jitter, r  - " ,2x, 1 pelO .3 »5x, "turbulence  - ", 

4  4x,2a4) 

625  format  ( 41 x, "turbulence  - ",4x,2a4) 

630  format  (41x,"tr  beam  width, rad", 2x, 1 pelO .3) 

640  format  (/,5x,"sr  parameters"/.' 

650  format  (6x, "linear  fov,  rad  -",2x,1pe10. 3, 5x, "aperture,  sq.m. 

4  6x,0pf6.4) 

660  format  (6x,"fov  (elev),  rad  -",2x,1pe10.3,5x,"fov  (az),  rad  - ", 

4  2x, IpelO .3 ,/ ,6x, "aperture,  sq.m  — ",6x,0pf6 .4) 

670  format  (6x,"fov  across  beam,  r",2x, IpelO. 3, 5x, "detection  type,  -", 
4  8x,a4) 

680  format  (6x,"cpt  bw,  microns  — 1 ",2x, IpelO. 3) 

681  format  (6x,"dark  current,  a  — ", 2x, IpelO .3 ,5x, "thermal  eqv  pwr  -", 

4  2x, IpelO. 3) 

685  format  (6x,"opt  bw,  microns  — ", 2x, IpelO .3 ,5x, "mixing  efficiency", 

4  6x,0pf6.4) 

686  format  (6x,"bit  interval,  s  — ",2x, IpelO .3) 

690  format  (6x,"gain - ",7x,  f5  .2 ,5x,  "excess  noise - ",2x, 

4  IpelO. 3) 

695  format  (6x,"mod.  depth - ",7x,f5.2) 

700  format  (6x, "bandwidth,  hz  - - " ,'2x, IpelO .3 ,5x, "quantum  eff. - ", 

4  7x,0*pf5.2) 

720  format  (/ ,5x, "intercept  mode  parameters"/) 

730  format  (6x,"mode  type - ",  1 0x, i2 ,5x,  "output  type  - - ",4x, 

4  2a4) 

740  format  (6x,"sr  plane,  deg  - ",5x, f7 .2 ,5x, "specular  gamint  -",5x, 

4  f7.2) 

750  format  (6x, "backstop  az,  deg  ",5x, f7 .2, 5x, "backstop  el,  deg  ",5x, 
4  f7.2) 

760  format  (6x,"rpx,  meters  - " , 2x, 1 pelO .3 ,5x, "x,  meters  - ", 

4  2x, IpelO. 3) 

770  format  (6x, "iso-con  value,  db-",2x, IpelO  .3) 

780  format  (/ ,5x, "atmospheric  parameters"/) 

790  format  (6x,"scat  coef  1/m  - ",2x, IpelO .3 ,5x, "abs  coef,  1/m  - ", 

4  2x, IpelO. 3) 

800  format  (6x,"data  source  — — — ",8x,a4) 

810  format  (6x, "results  are  valid  only  for  cases  with  near  ", 

4  "coaltitude  geometry") 

820  format  (6x,5a4 , 15x, "visibility  is",9x,2a4 ,/ , 17x, "coef ficients  ", 

4  "for  0  to  1000  meters  altitude") 

830  format  (// ,5x, "scattering  data  for  transmitter,  receiver,  and  ", 

4  "backstop") 

840  format  (/,6x,"bsdf  model  type  — ",4x,2a4 ,5x, "bsdf  slope  db/db  ", 

4  5x,f7.3) 

850  format  (6x, "nonlinearities  — ",  1 1x,i1 ,5x,"bsdf  intercept  -  ",5x, 

4  f7 .3) 

860  format  ( 1  lx, "from",5x, "to",7x, "level", 3( / ,6x, 0pi3 ,0pf7 .2,0pf8.2, 

4  1  pel 2 .4 ) ) 


870  format  (/, fix, "backstop  type  — — ",2x, "lambertian",5x, 

4  "reflection  coef  -",5x,f7.4) 

880  format  (/ ,6x, "backstop  type  - " ,4x,2a4 ,5x, "diffuse  level  - ", 

4  5x,f7.3) 

890  format  (6x, "specular  max  — " ,5x, f7 .3 »5x, "specular  width,  d",5x, 

4  f7.3) 

900  format  (/,6x,"oa  type - ",4x,2a4 ,5x, "diffuse  level - ", 

4  5x,f7.3) 

910  format  (//,40x, "power  contributed  by  each  source,  watts",/ ,7x,2a4 , 
4  fix, 2a4 , 1  lx, "transmitter  receiver  atmosphere") 


920  format  (///) 

930  format  (20x,"*#*  space  to  ground  ***") 

940  format  (//5x, "turbulence  beam  spread  (rad) - - — ' ",1pe10.3, 

4  /5x, "equivalent  irradiance  (w/sq.m)  - n,1pe10.3) 

950  format  (//5x,  "radius  of  transmitter  beam  (m) - ",f8.2,/, 

4  5x,  "no .  of  elements  in  beam - " ,  18  ,/8x, 


&  "configuration  of  element - ",2x, "square", /I  lx, 

&  "length  of  element  (m)  - ",f8. 2, /I  lx, "width  of  ", 


&  "element  (m)  - ",f8.2,/1  lx, "area  of  element  (sq.m)  ", 

4  " - " ,  f  8 . 2 ) 


960  format  (//5x,"no.of  vert,  elements  subtended  by  rcvr - ",i8,/8x, 

&  "no.  of  elements  down  beam  (x-dir)  - ",i8,/8x,"no.  of  ", 

4  "elements  across  beam  (y-dir)  - ",i8,/8x, "total  no.  of  ", 

4  "elemental  volumes - - ", i8) 

970  format  (//8x,"dist.  to  the  farthest  element  - - ",1 pel 0.3,/, 

4  8x, "altitude  of  the  farthest  element  IpelO  .3  ,/8x,  "alt.  ", 

&  "difference  of  subtended  element  — ", IpelO. 3) 

980  format  (//8x,"dist.  to  the  closest  element - ", IpelO. 3,/, 

4  8x, "altitude  of  the  closest  element  - ", IpelO .3 ,/8x, "alt.  ", 

4  "difference  of  subtended  element  — ", IpelO. 3) 

990  format  (///5x, "power  contributions",/ ,8x, "atmospheric  power  ", 

&  "contribution  (watts)-", 1 pelO .3 ,/ »8x, "transmitter  power  ", 

&  "contribution  (watts)-", IpelO. 3, /»8x, "receiver  power  ", 

4  "contribution  (watts) - ", IpelO. 3r//>5x, "total  power  (watts)", 

4  « - ",  IpelO.  3) 

1000  format  (//,13x,"***  sensitivity  analysis  summary  ***",//, lOx, 

4  "contributor", 8x, "fractional  deviation") 

1010  format  (/, 1  lx, "scattering", 15x, f8. 3) 

1020  format  (/, 1  lx, "absorption", 15x, f8. 3) 

1030  format  (/,11x,"bsdf",21x,f8.3) 

1040  format(v) 
end 
c. 

block  data 
c 

common/  flags  /mode, mcomp,mp, lam, modesw,lunit,nout,istog,iotype, 

4  irtype,ihet,ibflag,iw 

common/rsct/oasmax,diffoa,oafwhm,bmaxs,bfwhms,bdiff(6) ,psiaz ,psiel 
4  ,gams 

common/ atmos/  alfa(5,2) ,alfsct,alfab,ia,ab(33) ,as(33) ,at(33,l4,6) 


»•  e»  «•»•»*  »•  tf  if  «•(>•  B»e» 


11 


&  ,mat,mvis 

common/  tdata  /  blt,dt,ht,phit,pt,rb,grndi,bdrt,sigj,sigt 
common/  rdata  /  blr,dr,hr,gl,bdlr 
common/  srdata  /  asr,hs,phi,phiaz,dphi 

common/  ldata  /  rl,alam,rpx, theta, x,angtr,angrec,gamint,bw 
c  *  darki  4  ptherm  replace  pnep,  add  g  * 

common/  sndata  /  bwr, eta, f,em,pb,ps, darki, ptherm, snpndb, sndb,xm, 

&  bwopt,nflg,g 

common/  tbsdf  /  ng,gstart(3) »gend(3) ,gampl(3) ,ybsdf ,sbsdf ,nbak,noa 
&  , ibsdf 

common  /pltc  /  xint(200) ,yint(200) ,h(200) ,dcomp(2) ,np,note 
c  *  srdark  &  srther  replace  srpnep  * 

common/  blockl  /  xmod(6) ,gainsr(6) ,qe(6) ,fnoise(6) ,srbw(6) , 

&  srdark(6) ,srther(6) ,alamda(6) ,obw(6) ,nhol(6 ) 

c  *  dimension  headyl  &  heady2  (2by3) 

common/  hrith  /  title(l8) ,headx1(2,2) ,headx2(2,2) ,headyl(2,3) , 

&  heady2(2,3) ,brhol(2) ,bakhol(2) ,oahol(2) ,mattyp(5,5) ,ravtyp(2,2) , 

&  mathol( 2) ,holdet(2) , holiw( 2,3) 

common/ err/ ier , ier ab , iersc , ier br , devab , devsc , devbr 
c  *  add  labeled  common  wavefm  * 

common/  wavefm  /npts, t, formO( 1 000) ,forml(  1 000) ,power0(  1 000) , 

&  powerl(IOOO) 

c 

dimension  at11(33) ,atl2(33) ,at13(33) ,atl4(33) ,at15(33) , 

&  atl6(33) , at 17 (33) ,atl8(33) ,at19(33) ,at10(33) * 

&  at1a(33) ,at1b(33) ,at1e(33) ,at1d(33) 

dimension  at21(33) ,at22(33) ,at23(33) ,at2H(33) ,at25(33) , 

&  at26( 33) , at27(33) fat28(33) ,at29(33) ,at20(33) , 

&  at2a(33) ,at2b(33) ,at2c(33) ,at2d(33) 

dimension  at31(33) ,at32(33) ,at33(33) ,at34(33) ,at35(33) , 

at36(33) fat37(33) ,at38(33) fat39(33) ,at30(33) , 
at3a(33) ,at3b(33) ,at3c(33) ,at3d(33) 
dimension  at41 ( 33) ,at42(33) ,at43(33) ,at44(33) ,at45(33) , 
at46(33) ,at47(33) ,at48(33) rat49(33) ,at40(33) , 
at4a(33) ,at4b(33> ,at4c(33) ,at4d(33) 
dimension  at51(33) ,at52(33) ,at53(33) ,at54(33) ,at55(33) , 
at56(33) ,at57(33) ,at58(33) ,at59(33) ,at50(33) , 
at5a(33) ,at5b(33) ,at5c(33) ,at5d(33) 
dimension  at6l(33) ,at62(33) ,at63(33) ,at64(33) ,at65(33) , 
at66(33) ,at67(33) fat68(33) ,at69(33) ,at60(33) , 
at6a(33) ,at6b(33) ,at6c(33) ,at6d(33) 
equivalence  (at( 1 , 1 ,1 ) ,at1 1 ( 1 ) ) ,(at(1 ,2,1 ) ,at12( 1 ) ) , 

(at(1 ,3,1) , at 1 3  C 1 ) ) f ( at ( 1 ,4,1) , at  1 4 ( 1 ) ) , 

C  at (1 ,5,1) >  at 15(1))»( at (1,6,1), at 16(1)), 

(at(1 ,7,1),at17(1)),(at(1 ,8,1) ,atl8(1)), 

(at( 1 ,9»1 ) »at19( 1 ) ) »(at(1 ,10,1 ) ,at10( 1 ) ) , 

(at( 1 ,1 1 ,1 ) ,at1 a( 1 ) ) , (at( 1 , 1 2,1 ) ,at1b( 1 ) ) , 

( at  (1,13,1),  at  1c(1)),(  at  (1,14,1),  at  1d(D) 
equivalence  (at( 1 , 1 ,2) ,at21 ( 1 ) ) , ( at ( 1 ,2,2) ,at22( 1 ) ) , 

(at ( 1 ,3 ,2) ,at23( 1 ) ) , ( at (1 ,4,2) ,at24( 1 ) ) , 


& 


ft®  ft®  ft*  ft®  ft®  ft*  o  o  ft®  ft®  ft*  ft®  ft®  ft®  ft®  ft®  ft®  ft®  ft®  ft®  ft®  ft®  ft®  ft®  ft®  ft®  ft*  ft®  ft®  ft®  ft®  ft®  ft®ft®ft®R® 
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&  (at(  1  ,5,2) ,  at25 ( 1 ) ) , (at ( 1 ,6,2) ,at26( 1 ) ), 

(at( 1 ,7 ,2) ,at27( 1 ) ) , ( at (1 ,8,2) ,at28( 1 ) ) , 

(at ( 1 ,9,2) ,at29(1) ) , ( at C 1 ,10,2) ,at20( 1) ) , 
(at (1,11, 2), at2a( 1 ) ) , ( at (1,12,2), at2b( 1 ) ) , 
(at( 1 ,1 3 ,2) ,at2o( 1 ) ) , (at( 1 , 14 ,2) ,at2d( 1 ) ) 
equivalence  ( at ( 1 , 1 ,3) ,at31 ( 1 ) ) , (at( 1 ,2,3) ,at32( 1 ) ) , 
(at(1,3,3).at33(1)),(at(1,H,3) ,at34(1)), 
(at{ 1 ,5 ,3) ,at35( 1 ) ) , ( at (1,6,3) ,at36(1)), 

( at (1,7,3)  ,at37(  1 ) ) ,(at(  1 ,8,3)  ,at38(1)), 
(at(1 ,9,3) ,at39( 1 ) ) , ( at (1 ,10,3) ,at30( 1 ) ) , 
(at(1 ,11,3) ,at3a(1)),(at(1,12,3),at3b(1)), 
(at(1,13,3),at3c(1)),(at(1 ,lH,3),at3d(1)) 
equivalence  (at( 1 ,1 ,4) ,at4l ( 1 ) ) , ( at ( 1 ,2,4) ,at42( 1 ) ) , 

( at ( 1 ,3 ,4) ,at43( 1 ) ) , ( at (1 ,4,4) ,at44( 1 ) ) , 
(at(1 ,5,4), at45( 1 ) ) , ( at ( 1 ,6 ,4) ,at46( 1 ) ) , 
(at( 1 ,7,4) ,at47( 1 ) ) , (at( 1 ,8,4) ,at48( 1 ) ) , 
(at(1 ,9,4) ,at49( 1 ) ) ,(at(1 ,1 0,4) ,at40( 1 ) ) , 
(at  (1,11, 4) ,at4a(1 ) ) ,(at( 1 , 1 2,4) ,at4b( 1 ) ) , 
(at(1 ,13,4), at4c(1)),(at(1 ,14,4), at4d(1)) 
equivalence  (at( 1 ,1 ,5) ,at51 ( 1 ) ) , (at( 1 ,2 ,5) ,at52( 1 ) ) , 

( at  ( 1 , 3 , 5 ) ,  at53  ( 1 ) )  >  ( at  ( 1  , 4 , 5 ) ,  at54  ( 1 ) ) , 

(at ( 1 ,5,5),at55(l)),(at(1 ,6,5) ,at56( 1 ) ) , 
(at( 1 ,7 ,5) , at57( 1 ) ) , ( at ( 1 ,8,5) ,at58( 1 ) ) , 
(at( 1 ,9,5) ,at59( 1 ) ) , ( at (1 ,10,5) ,at50( 1 ) ) , 

( at (1,11 ,5) »at5a( 1 ) ) , ( at (1 ,12,5) ,at5b( 1 ) ) , 
(at(1,13,5),at5c(1)),(at(1 ,14,5),at5d(1)) 
equivalence  (at( 1 , 1 ,6) ,at6l ( 1 ) ) , (at( 1 ,2,6) ,at62( 1 ) ) , 
(at(1 ,3,6) , at63(  1 ) ) , (at(  1  ,4,6)  ,-at64(  1 ) ) , 

(at (1 ,5,6) ,at65( 1 ) ) , ( at ( 1 ,6,6) ,at66( 1 ) ) , 

(at ( 1 ,7 ,6) ,at67( 1)),(at(1,8,6) ,at68(1)), 

(at(1 ,9,6),at69(1)),(at(1 ,10,6) ,at60(1)), 
(at ( 1 ,11 ,6) ,at6a(1)),(at(1 ,12,6) ,at6b(1)),' 
( at (1 ,13,6) ,at6c( 1 ) ) , (at( 1 , 14 ,6) ,at6d( 1 ) ) 


data  mode, mcomp,mp, lan, modesw,lunit, nout,istog/4, 1 ,1 ,4,1  ,5,1 ,0/ 

*  add  Pr(e)  heading  for  mode  6  * 

data  headyl ,heady2/"pwr,","s/n,","rpx  ","rpx  ","  p","  p", 

"  dbw", "  db  ",",m  ",",m  ","r(e)","r(e)"/ 

data  headxl ,headx2/"thet", "thet", "x,me", "x,me", "a,  d","a,  d", 
"ters","ters"/ 

data  brhol,bakhol,oahol/"  ave", "rage", "  dif", "fuse", "  unk", "nown"/ 
data  mattyp/"trop,T, "ical", "  ", 

"midi", "atit", "ude  ","summ","er  ", 

"midi", "atit", "ude  ","wint","er  ", 

"suba", "rcti", "c  ","summ","er  ", 

"suba","rcti","c  ","wint","er  "/ 
data  mvtyp/"clea", "r  ","hazy","  "/ 

data  mathol/"user", "afgl"/ 
data  holdet/"  dir","  het"/ 

data  holiw/"  se","vere", "mode", "rate","  ","mild”/ 


13 


data  blt,dbrt,dt,ht,pt/0. 0,0.0,. 1 ,10., 1 ./ 
data  blr ,dblr,dr ,hr/0 .0,0. 6, .1,10./ 
data  asr ,hs,phi,phiaz/ .05, 1 0. , . 01 ,  .0 1/ 
data  alam,rl,rpx,x/1 .0e-6 ,5000. ,2500. ,1 000./ 
c  *  add  default  values  for  darki  &  ptherm  * 

data  bwr, eta, f, em, pb, darki, ptherm, xm,bwopt,g/0. 0,0. 0,0. 0,0. 7, 

&  0.0, 0.0, 0.0, 0.0, 0.0, 0.0/ 

data  rb,grndi,gl, theta/200.,1 .e-4,0 .,. 174533/ 
c  MODULATION  DEPTH  AND  SR  ELECTICAL  BANDWIDTH 
data  xmod,bw/1 .,1 .,1 .,1  .,1  .,1  .,1  .e6/ 
data  gstart/0. ,0. ,0./ 
data  gend/0.,0.,0./ 
data  gampl/0.,0.,0./ 

data  bmaxs,bfwhms,bdiff ,oasmax,diffoa,oafwhm/0. ,3* , .3 ,  .3  > *3  , -3 , • 1 , 
&  .3  >0 . ,0 . , . 3/ 

data  gainsr/1 .,1 .,1 .,1  .,1 .  ,1 ./ 
data  qe/ .5 , . 5 , .75 , . 5 , .6 ,0 .7/ 
data  fnoise/1 .,1 .,1  .,1 .  ,1 .  ,1 ./ 
data  srbw/1 ,0e6 ,1 ,0e6 ,1 .0e6 ,1 .0e6 ,1  .0e6 ,1 .0e6/ 
o  *  add  data  for  srdark  &  srther  * 
data  srdark/6*1 .e-9/ 

data  srther/8.e-15 ,8.e-15 ,5 .e-15 ,7 .e-15 ,5 .e-17 , 1 .e-12/ 
data  al amda/ .  5 1 4  5 e-6  , .  6  329  e-6  , .  86  0 e-6 , 1 . 06  e-6 , 1 0 . 6  e-6 , 0/ 
data  obw/. 001 ,.001 ,.001 ,.001,. 01,. 05/ 

data  alfa/5 .e-5 »5 .e-5 ,5 .e-5  »5 .e-5  >5 .e-5 ,5 .e-5 ,5 .e-5 ,5  .e-5  »5  .e-5 , 

&  5.  e-5/ 

data  ng,ybsdf ,sbsdf/0,200. ,-2.5/ 
data  nflg,irtype/1 ,2/ 

data  nhol/"  s", "unny", "  cl", "oudy", "  n","ight"/ 

data  ibsdf , nbak , noa/ 1,1,1/ 

data  gamint/0./ 

data  note/0/ 

data  ia,mat,nivis/1 ,2,1/ 

data  dcomp/-80 ., 0./ 

data  phit/.0001/ 

data  ier ,ierab, iersc, ierbr/0 ,0,0,0/ 
data  devab,devsc,devbr/.1 ,.1 ,.1/ 
data  psiaz,psiel,gams/0.,0.  ,0./ 
data  ihet/o/ 

data  ibflag,iw,sigj/1 ,2,5*e-6/ 
c  *  aadd  data  for  labeled  common  wavefm  * 

data  npts, t,form0 ,form1/101 ,1 .e-6 ,51*1 .0,949*0.0,50*0.0,51*1 .0, 

&  899*0.0/ 


c  NOTE  -  UNITS  ARE  1/101.,  BUT  ARE  CONVERTED  TO  1/M  IN  PROGRAM 

c 

c 

c  WAVELENGTH  IS  .5145  MICRONS 

c 
c 


TROPICAL  MOLECULAR  ABSORPTION 


14 


data  atll/ 

0.0  ,  0.0  i  0.0  ,  0.0  p  0.0  i  0*0  t 

0.0  ,0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  i  0.0  t  0.0  ,  0.0  j  0.0  t  0*0  t 

0*0  i  0.0  i  0.0  f  0*0  ,  0.0  ,  0.0  , 

0.0  ,  0.0  ,  0.0  / 

TROPICAL  MOLECULAR  SCATTERING 

data  at12/ 

1.47e-02,  1 .40e-02,  1.28e-02,  1.15e-02,  1.04e-02,  9.46e-03, 
8.55e-03,  7.70e-03,  6.94e-03,  6.22e-03,  5.55e-03,  4.96e-03, 
4.40e-03,  3.89e-03,  3.^4e-03,  3.02e-03,  2.63e-03,  2.27e-03, 
1.91e-03,  1.57e-03,  1.31e-03,  1.096-03,  9.08e-04,  7.64e-04, 
6.48e-04,  5.50e-04,  3.67e-04,  1.68e-04,  7.97e-05,  3-91e-05, 
1.99e-05,  7.45e-06,  0.0  / 

MIDLATITUDE  SUMMER  MOLECULAR  ABSORPTION 

data  at13/ 

0.0  r  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  ,  0.0  ,  0.0  i  0*0  t  0*0  t  0.0  t 

0.0  i  0.0  f  0.0  f  0.0  ,  0.0  ,  0.0  i 

0.0  t  0.0  ,  0.0  i  0*0  I  0.0  ,  0.0  f 

0.0  y  0.0  y  0.0  / 

MIDLATITUDE  SUMMER  MOLECULAR  SCATTERING 
data  at 14/ 

1.50e-02,  1.436-02,  1.29e-02,  1.l6e-02,  1.05e-02,  9.51e-02, 
8.56e-02,  7.68e-02,  6.89e-02,  6.l6e-03,  6.50e-03,  4.90e-03, 
4.36e-03,  3.85e-03,  3-34e-03,  2.85e-03,  2.42e-03,  2.07e-03, 
1.77e-03,  1.51e-03,  1.29e-03,  1.10e-03,  9.38e-04,  8.00e-04, 
6.82e-04,  5.83e-04,  3*91e-04,  1.80e-04,  8.59e-05,  4.22e-05, 
2.17e-05,  8.l6e-06,  0.0  / 

MIDLATITUDE  WINTER  MOLECULAR  ABSORPTION 

data  at15/ 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  y  0.0  ,0.0  / 

MIDLATITUDE  WINTER  MOLECULAR  SCATTERING 


data  atl6/ 


1 .63e-02, 

1 .54e-02, 

1  .37e-02, 

1 .22e-02, 

1  .09e-C2, 

9.79e-03, 

8.75e-03, 

7.80e-03, 

6.93e-03, 

6  .  l4e-03  * 

5.42e-03, 

4.72e-C3, 

4.05e-03, 

3-47e-03, 

2.98e-03, 

2.55e-C3, 

2.1 9e-03  > 

1 .88e-03 

1 .6 1e-03 , 

1.38e-03, 

1.1 8e-03 , 

1  .Ole-03, 

8. 57 e-04 , 

7.32e-04, 

6  .26 e-04 , 

5.34e-04, 

3.56e-04, 

1  . 60e-04 , 

7.20e-05, 

3  -35e-05 

1 .64e-05 , 

6  .01e-06 , 

0.0  / 

SUBARCTIC 

SUMMER  MOLECULAR  ABSORPTION 

data  at17/ 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0  , 

0.0  , 

0.0  f 

0.0  , 

0.0 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0  , 

0.0 

0.0  , 

0.0 

0.0  / 

SUBARCTIC 

SUMMER  MOLECULAR  SCATTERING 

data  atl8/ 

1.53e-02, 

1  .46e-02, 

1  -32e-02, 

1 .19e-02, 

1 .06e-02, 

9.55e-03, 

8.58e-03, 

7. 71 e-03, 

6 ,9te-03 , 

6.1 7e-03, 

5.50e-03, 

4.81 e-03 

4.13e-03, 

3-55e-03, 

3-05e-03, 

2.62e-03, 

2.25e-03, 

1 .94e-03, 

1.67e-03, 

1 .43e-03, 

1  -23e-03, 

1  .06e-03, 

9.1 1e-04, 

7.83e-04, 

6.72e-04, 

5.75e-04f 

3.89e-04, 

1 .82e-04, 

8.64e-05, 

4.26e-05, 

2.21e-05 , 

8.45e-06, 

0.0  / 

SUBARCTIC 

WINTER  MOLECULAR  ABSORPTION 
» 

data  at19/ 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0  , 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0 

0.0  , 

0.0  , 

0.0  / 

SUBARCTIC 

WINTER  MOLECULAR  SCATTERING 

data  atIO/ 

1 .71e-02, 

1 .60e-02 , 

1 .4 1e-02 , 

1 .25e-02, 

1 .10e-02, 

9. 86 e-03, 

8.80e-03 , 

7.83e-03, 

6.94e-03, 

6  .09e-03, 

5.25e-03, 

4.49e-03, 

3.84e-03, 

3 .28e-03 » 

2.80e-03, 

2.40e-03, 

2.05e-03, 

1 .76e-03, 

1 .51 e-03, 

1 .29e-03, 

1  . 1 0e-03  t 

9.44e-04, 

8.07e-04, 

6.90e-04, 

5.90e-04, 

5.04e-04, 

3.36e-04, 

1  .4  9e-04 , 

6.67e-05, 

3  .06e-05 , 

1 .46e-05 , 

5 .  15e-06 , 

0.0  / 

AEROSOL  ABSORPTION  -  CLEAR 


data  atla/ 

A  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

&  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

&  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

&  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

&  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

&  0.0  ,  0.0  ,  0.0  / 

G 

c  AEROSOL  SCATTERING  -  CLEAR 
data  atlb/ 

1.68e-01,  1 .1 2e-01 ,  4.86e-02,  2.07e-02,  9*76e-03,  6.l6e-03, 
4.49e-03,  3-64e-03,  3-56e-03,  3.54e-03,  3-42e-03,  3.27e-03, 
3.24e-03,  3-19e-03,  3.04e-03,  2.91e-03,  2.75e-03,  2.67e-03, 
2.6le-03,  2.36e-03,  1.85e-03,  1.35e-03,  9.98e-04,  7.58e-04, 
5.90e-04,  4.82e-04,  2.43e-04,  6.83e-05,  1.80e-05,  4.73e-06, 
1.25e-06,  0.0  ,0.0  / 

AEROSOL  ABSORPTION  -  HAZY 

data  atlc/ 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  ,  0.0  i  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  i  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  i 

0.0  i  0.0  i  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  _  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  i 

0.0  ,  -0.0  ,  0.0  / 

AEROSOL  SCATTERING  -  HAZY 

data  atld/ 

8.20e-01,  4.96e-01,  1.8le-01,  6.63e-02,  2.42e-02,  8.84e-03, 
4.49e-03,  3.64e-03,  3-56e-03,  3.54e-03,  3.42e-03,  3.27e-03, 
3.24e-03,  3.19e-03,  3.04e-03,  2.91e-03,  2.75e-03,  2.67e-03, 
2.6le-03,  2.36e-03,  1.85e-03,  1-35e-03,  9.98e-04,  7.58e-04, 
5.90e-04,  4.82e-04,  2.43e-04,  6.83e-05,  1.80e-05,  4.73e-06, 
1.25e-06,  0.0  ,0.0  / 


WAVELENGTH  IS  .6328  MICRONS 
TROPICAL  MOLECULAR  ABSORPTION 
data  at2V 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0 

0.0  ,0.0  ,0.0  ,0.0  ,0.0  ,0.0 

0.0  ,0.0  ,0.0  ,0.0  ,0.0  ,0.0 


S*  O  (*•  OOOft»S»R*8»f>*ft»  OOOB»S»fi»B«S«R»  OOOR»ft»R«R»B«R* 
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& 

c 

c 

c 


0.0  ,  0.0  ,  0.0  / 

TROPICAL  MOLECULAR  SCATTERING 


data  at22/ 
6.31e-03, 
3.68e-03, 
1 .89e-03 , 
8.20e-04, 
2.79e-04, 
3.57e-06, 


6.03e-03, 
3.31e-03, 
1 .67e-03, 
6.77e-04, 
2.37e-04, 
3 .20e-06 , 


5 .4  8e-03 , 
2.99e-03, 
1  .4  8e-03  * 
5.62e-04, 
1 .58e-04, 
0.0  / 


4.97e-03, 
2.67e-03, 
1 .30e-O3, 
4.68e-04f 
7.22e-05, 


4.4  9e-03, 
2.39e-03, 
1 .13e-03, 
3. 91 e-04, 
3.43e-05, 


4.07e-03  , 
2.13e-03 » 
9.76e-04, 
3.29e-04, 
1 .68e-05, 


MIDLATITUDE  SUMMER  MOLECULAR  ABSORPTION 


data  at23/ 

0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,  0.0 


0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,  0.0 

0.0  / 


0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,  0.0 


MIDLATITUDE  SUMMER  MOLECULAR  SCATTERING 


data  at24/ 
6.44e-03, 
3.68e-03 » 
1 .87e-03, 
7.63e-04, 
2.93e-04, 
9.31e-06, 


6. 13«-03, 
3.316-03, 
1 .66e-03, 
6 .51 e-04 , 
2.51e-04, 
3.51e-06, 


5.54e-03, 
2.96e-03, 
1 .44e-03, 
5.55e-04, 
1 .68e-04 , 
0.0  / 


5. Ole-03, 
2 ,66e-03 , 
1  .23e-03, 
4.73e-04, 
7.76e-05^ 


4.53e-03, 
2.37e-03, 
1 .04e-03, 
4.03e-04, 
3.69e-05, 


4.09e-03, 
2.1 1e-03, 
8.92e-04, 
3.44e-04, 
1 .82e-05, 


MIDLATITUDE  WINTER  MOLECULAR  ABSORPTION 


data  at25/ 


0.0 

# 

0.0 

1 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

0.0 

f 

0.0 

f 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

0.0 

t 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

0.0 

f 

0.0 

f 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

f 

0.0 

/ 

MIDLATITUDE  WINTER  MOLECULAR  SCATTERING 


data  at26/ 
6.79e-03, 
3.76e-03, 
1 .74e-03, 
6. 91 e-04, 
2.69e-04, 


6.62e-03 
3.35e-03 
1 .49e-03 
5. 91 e-04 
2.30e-04 


5.91e-03 
2.98e-03 
1 .28e-03 
5 .06e-04 
1 .53e-04 


5.26e-03 
2.64e-03 
1 .T0e-03 
4.32e-04 
6.90e-05 


4.70e-03, 
2.33e-03, 
9.4 1e-04 , 
3.69e-04, 
3 . 1 0e-05 , 


4.21e-03, 
2.03e-03, 
8.07e-04, 
3.15e-04, 
1 .44e-05 , 
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E 


7.06e-06 ,  2.59e-06,  0.0  / 


SUBARCTIC  SUMMER  MOLECUUR  ABSORPTION 


data  at27/ 


SUBARCTIC  SUMMER  MOLECUUR  SCATTERING 
data  at28/ 

6.58e-03,  6.26e-03,  5.66e-03,  5.10e-03,  4.58e-03,  4.11 e-03  * 
3.69e-03,  3.32e-03,  2. 97 e-03,  2.66e-03,  2.36e-03,  2.07e-03, 
1.78e-03,  1.53e-03,  1.31e-03,  1.13e-03,  9.68e-04,  8.34e-04, 
7.17e-04,  6.17e-04,  5.30e-04,  4.55e-04,  3-92e-04,  3-37e-04, 
2.89e-04,  2.48e-04,  1.67e-04,  7.83e-05,  3.72e-05,  1.83e-05, 
9.51 e-06 ,  3 .64e-06 ,  0.0  / 

SUBARCTIC  WINTER  MOLECUUR  ABSORPTION 


data  at29/ 


,  0.0 


,  0.0 


,  0.0 


,  0.0 


SUBARCTIC  WINTER  MOLECUUR  SCATTERING 
data  at20/ 

7. 37 e-03 ,  6.88e-03,  6.04e-03,  5.36e-03,  4.75e-03,  4.24e-03, 
3.79e-03,  3-37e-03,  2.99e-03,  2.62e-03,  2.26e-03,  1.93e-03, 
1.65e-03,  1.41 e-03,  1.21e-03,  1.03e-03,  8.82e-04,  7.56e-04, 
6.47e-04,  5.54e-04,  4.75e-04,  4.06e-04,  3.47e-04,  2.97e-04, 
2.54e-04,  2.17e-04,  1.44e-04,  6.39e-05,  2.87e-05,  1.32e-05, 
6. 27 e-06,  2.22e-06,  0.0  / 

AEROSOL  ABSORPTION  -  CLEAR 

data  at2a/ 

3.14e-03,  2.09e-03,  9.09e-04,  3.87e-04,  1.82e-04,  1.15e-04, 
8.39e-05,  6.78e-05,  6.65e-05,  6.6le-05,  6.39e-05,  6.11e-05, 
6.06e-05,  5.97e-05,  5.67e-05,  5.44e-05,  5.l4e-05,  4.99e-C5, 
4.88e-05,  4.40e-05,  3.46e-05,  2.52e-05,  1.87e-05,  1.42e-05, 
1.10e-05,  9.00e-06,  4.53e-06,  1.28e-06,  0.0  ,0.0  , 


S»B»  O  OOR*S*ft«a«R*(J*  OOOOOOB»fi«H»B»B«R»  OOOB»B»0»B»««R-  O  OO  »•  R«  0*  O'  R"  ft* 
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& 

c 

c 

0 


0.0  ,  0.0  ,  0.0  / 

AEROSOL  SCATTERING  -  CLEAR 


data  at2b/ 
1 .36e-01 , 
3.63e-03, 
2.62e-03, 
2.1 1e-03 , 
4.77e~04, 
1.01e-06, 


9.03e-02, 

2.94e-03, 

2.58e-03, 

1.91e-03, 

3.90e-04, 

0.0  , 


3.93e-02, 
2.88e-03, 
2.45e-03, 
1 .50e-03, 
1 -96e-04, 
0.0  / 


1 .67e-02, 
2 .86e-03 , 
2.35e-03, 
1 .09e-03, 
5.52e-05, 


7.89e-03, 
2.77e-03, 
2.23e-03, 
8.07e-04, 
1  .45e-05, 


4.98e-03, 
2.64e-03, 
2.l6e-03 , 
6.13e-04, 
3.83e-06, 


AEROSOL  ABSORPTION  -  HAZY 


data  at2e/ 
1.53e-02, 
8.39e-05, 
6 .06e-05 , 
4.88e-05 , 
1 .10e-05, 
0.0 


9.26e-03, 
6.79e-05, 
5.97e-05, 
4.40e-05  i 
9.00e-06 , 
0.0  , 


3-39e-03, 
6.65e-05, 
5.67e-05, 
3 .46e-05 , 
4.53e-06, 
0.0  / 


1 .24e-03, 
6 .6 1e-05  , 
5.44e-05, 
2.52e-05 , 
1 .28e-06, 


4.52e-04, 
6.39e-05, 
5 . 1 4e-05 , 
1 .87e-05, 
0.0  , 


1 .65e-04, 
6 .1 1e-05 , 
4.99e-05, 
1 .42e-05, 
0.0 


AEROSOL  SCATTERING  -  HAZY 


data  at2d/ 
6.63e-01 , 
3-63e-03, 
2.62e-03, 
2.1 1e-03  , 
4 .77e-04 , 
1 .01e-06 , 


4.01e-01 , 
2.94e-03, 
2.58e-03, 
1 .91 e-03 1 
3.90e-04, 
0.0  , 


1 .47e-01 , 
2.88e-03, 
2.45e-03, 
1 .50e-03 , 
1 .96e-04, 
0.0  / 


5.36e-02, 
2. 86 e-03, 
2.35e-03, 
1 .09e-03, 
5.52e-05, 


1 .96e-02, 
2.77e-03, 
2.23e-03, 
8.07e-04, 
1 .45e-05, 


7.l4e-03, 

2.64e-03, 

2.-l6e-03, 

6.13e-04, 

3.83e-06, 


WAVELENGTH  IS  .86  0  MICRONS 
TROPICAL  MOLECULAR  ABSORPTION 


data  at31/ 

0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,  0.0 

0 .0  ,  0.0 

0.0  ,  0.0 

0.0  ,0.0 


0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,0.0 

0.0  ,  0.0 

0.0  / 


0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,  0.0 

0.0  ,  0.0 


TROPICAL  MOLECULAR  SCATTERING 


data  at32/ 

1.89e-03,  1.81 e-03,  1.64e-03,  1.49e-03,  1.34e-03,  1.22e-03, 
1 . 1 0e-03 ,  9.92e-04,  8.94e-04,  8.00e-04,  7.l6e-04,  6.38e-04, 


^7^.  AJ.Ji.__  1111  - ’I 


& 

5 .67e-04 , 

5 .01e-Q4 ,  4.43e-04, 

3.89e-04, 

3-39e-04, 

2.92e-04, 

& 

2.45e-04, 

2.03e-04,  1.68e-04, 

1  .40e-04, 

1  . 17e-04 , 

9 .84e-05 , 

& 

8. 35e-05 , 

7.09e-05,  4.73e-05, 

2 . 1 6e-05  , 

1  .03e-05, 

5.04e-06, 

& 

2.56e-C6, 

0.0  ,  0.0  / 

c 

c 

MIDLATITUDE  SUMMER  MOLECULAR 

ABSORPTION 

c 

data  at33/ 

& 

0.0  , 

0.0  ,  0.0  , 

0.0  , 

0.0  , 

0.0  , 

& 

0.0  , 

0.0  ,  0.0  , 

0.0  , 

0.0  , 

0.0  , 

& 

0.0  , 

0.0  ,  0.0  , 

0.0  , 

0.0  , 

0.0  , 

& 

0.0  , 

0.0  ,  0.0  , 

0.0  , 

0.0  , 

0.0  , 

& 

0.0  , 

0.0  ,  0.0  , 

0.0  , 

0.0  , 

0.0  , 

& 

0.0  , 

0.0  ,  0.0  / 

c 

0 

MIDLATITUDE  SUMMER  MOLECULAR 

SCATTERING 

c 

data  at34/ 

& 

1.93e-03, 

1.84e-03,  1.66e-03, 

1  .60e-03, 

1 .36e-03, 

1 .22e-03, 

& 

1 .10e-03, 

9.90e-04,  8.87e-04, 

7.96e-04, 

7.1 1e-04 , 

6.32e-04, 

& 

5.60e-04, 

4.95e-04,  4.30e-04, 

3.67e-04, 

3 .1 2e-04 , 

2.67e-04, 

4 

2.28e-04, 

1.95e-04,  1.66e-04, 

1 .42e-04 , 

1 .21e-04 , 

1 .03e-04, 

& 

8.78e-05 , 

7.50e-06,  5.64e-05 , 

2.32e-05, 

1  . 1 1e-05  , 

5.44e-06, 

& 

2.79e-06, 

1.05e-06,  0.0  / 

c 

c 

MIDLATITUDE  WINTER  MOLECUUR 

ABSORPTION 

c 

data  at35/ 

& 

0.0  , 

0.0  ,  0.0  , 

0.0  , 

0.0  , 

0.0  , 

& 

0.0  , 

0.0  yO.O  , 

0.0  , 

0.0  , 

0.0  , 

& 

0.0  f 

0.0  ,0.0  , 

0.0  , 

0.0  , 

0.0  , 

& 

0.0  , 

0.0  ,0.0  ,• 

0.0  , 

0.0  , 

0.0  , 

& 

0.0  , 

0.0  ,  0.0  , 

0.0  , 

0.0  , 

0.0  , 

& 

0.0  , 

0.0  ,  0.0  / 

c 

c 

MIDLATITUDE  WINTER  MOLECUUR 

SCATTERING 

c 

data  at36/ 

& 

2.09e-03, 

1.9  8e-03,  1  .77e-03, 

1 .5  8e-03, 

1 .4 1e-03 , 

1 .26e-03, 

& 

1 .13e-03, 

1  .00e-03 ,  8.92e-04, 

7.90e-04., 

6.98e-04, 

6  .08e-04 , 

& 

5.22e-04, 

4.47e-04,  3.84e-04, 

3.29e-04, 

2.82e-04, 

2.42e-04, 

& 

2.07e-04, 

1.77e-04,  1  ,52e-04 , 

1 .29e-04, 

1 .10e-04, 

9.43e-05, 

& 

8.06e-05, 

6.88e-05,  4.5  9e-05, 

2.07e-06, 

9.27e-06, 

4.31e-06 , 

& 

2.12e-06 , 

0.0  f  0.0  / 

c 

c 

SUBARCTIC 

SUMMER  MOLECUUR  ABSORPTION 

c 

data  at37/ 

& 

0.0  , 

0.0  ,  0.0  , 

0.0  , 

0.0  , 

0.0  , 

& 

0.0  , 

0.0  ,  0.0  , 

0.0  , 

0.0  , 

0.0  , 

A 


i 


«•  #•  «•  R»  «•  «•  OO  O  R»  S*  f*»  R«  R»  »"  OOOft»ft.&*K-a«ff*  O  DO  R»  R»  R°  B* 


"V 
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1 


0.0  , 

0.0  , 

0.0  , 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  / 

SUBARCTIC 

SUMMER  MOLECULAR  SCATTERING 

data  at38/ 

1.97e-03, 

1 .87e-03, 

1  .69e-03, 

1  -53e-03, 

1 .37e-03, 

1  .23e-03, 

1. lie-03, 

9.93e-04, 

8.90e-04, 

7.95e-04, 

7.08e-04, 

6.19e-04, 

5.32e-04, 

4.57e-04, 

3.93e-04, 

3-37e-04, 

2.90e-04, 

2.50e-04 , 

2.15e-04, 

1 .85e-04, 

1 .59e-04, 

1 .36e-04, 

1  . 17e-04 , 

1 ,01e-C4 , 

8.66e-05 , 

7 .4le-05 , 

5 .0 1e-05 , 

2.35e-05, 

1 .1 1e-05, 

5.48e-06, 

2.85e-06, 

1 .09e-06 , 

0.0  / 

SUBARCTIC  WINTER  MOLECULAR  ABSORPTION 

data  at39/ 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0  , 

0.0 

0.0  , 

0.0  , 

0.0 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0  / 

* 

SUBARCTIC  WINTER  MOLECULAR  SCATTERING 

data  at30/ 

2.21e-03, 

2.06e-03, 

1 .81 e-04 , 

1  ,60e-0*. 

1 .42e-04 , 

1 .27e-04, 

1.13e-G4, 

1 .01e-04, 

8.94e-04, 

7 ,84e-04 , 

6  .76e-04 , 

5.78e-04, 

4.94e-04, 

4.22e-04, 

3. 61 e-04, 

3 .08e-04 , 

2.64e-04 , 

2.26e-04, 

1 .94e-04, 

1 .66e-04 , 

1 .42e-04 , 

1 .22e-04, 

1 .04e-04, 

8.89e-05, 

7.60e-05, 

6.49e-05, 

4.31e-05, 

1  .91e-05, 

8.60e-06 , 

3  .94e-06 , 

1 .88e-06 , 

0.0  , 

0.0  / 

AEROSOL  ABSORPTION 

-  CLEAR 

data  at3a / 

1 .52e-02, 

1  .01e-02 , 

4.41e-03, 

1  .88e-03, 

8.84e-04 , 

5.58e-04, 

4. 07 e-04, 

3.29e-04, 

3 .22e-04 , 

3  .20e-04 , 

3 . 1  Qe-04  , 

2.96e-04, 

2.94e-04, 

2.89e-04, 

2. 75 e-04, 

2.64e-04 , 

2.49e-04, 

2.42e-04 , 

2.36e-04, 

2.1 3e-04 , 

1  .68e-04 , 

1 .22e-04 , 

9.04e-05, 

6  .86e-05 , 

5.34e-05, 

4.36e-05, 

2.20e-05, 

6.19e-06, 

1  .63e-06, 

0.0  , 

0.0  , 

0.0  , 

0.0  / 

AEROSOL  SCATTERING 

-  CLEAR 

data  at3b/ 

9.03e-02 , 

5.9°'-02, 

2.6  1e-02 , 

1 .11e-02, 

5.24e-03, 

3.30e-03, 

2. Ale-03, 

1.9-  -03, 

1  .91e-03, 

1 .90e-03 , 

1 ,83e-03, 

1 .75e-03, 

p»  0-  p*  0»  0*  0*  ooDn»e»0»0>e»R>  oraoooo0*0>R*0*0*0»  o  oo  0*»*»'R»r*p*  o  o  o  &•  r  >  ».  r» 
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1.74e-03,  1.71e-03,  1.63e-03,  1.56e-03,  1.48e-03,  1.43e-03, 
1.40e-03,  1.26e-03,  9.94e-04,  7.25e-04,  5.36e-04,  4.06e-04, 
3.l6e-04,  2.59e-04,  1.30e-04,  3.67e-05,  9.65e-06,  2.54e-C6, 
0.0  ,  0.0  ,  0.0  / 

AEROSOL  ABSORPTION  -  HAZY 

data  at3c/ 

7.43e-02,  4.49e-02,  1.64e-03,  6.00e-03,  2.19e-03,  8.00e-04, 
4 . 07 e-04 ,  3.29e-04,  3.22e-04,  3  .20e-04,  3.10e-04,  2.96e-04, 
2.94e-04,  2.89e-04,  2.75e-04,  2.64e-04,  2.49e-04,  2.42e-04, 
2.36e-04,  2.1 3e-04 ,  1.68e-04,  1.22e-04,  9.04e-05,  6.86e-05, 
5.34e-05,  4.36e-05,  2.20e-05,  6.19e-06,  1.63e-06,  0.0  , 

0.0  ,  0.0  ,  0.0  / 

AEROSOL  SCATTERING  -  HAZY 

data  at3d/ 

4.40e-01 ,  2.66e-01,  9.72e-02,  3-56e-02,  1.30e-02f  4.74e-C3, 
2.41e-03,  1.95e-03,  1.91e-03,  1.90e-03,  1.83e-03,  1.75e-03, 
1.74e-03,  1.71e-03,  1.63e-03,  1.56e-03,  1.48e-03,  1.43e-03, 
1.40e-03,  1.26e-03,  9-94e-04,  7.25e-04,  5.36e-04,  4.06e-04, 
3.l6e-04,  2.59e-04,  1.30e-04,  3.67e-05,  9.65e-06,  2.54e-06, 

0.0  f  0.0  f  0.0  / 

WAVELENGTH  IS  1 .06  MICRONS 
TROPICAL  MOLECULAR  ABSORPTION 
data  at4l/ 

0.0  yO.O  >0.0  >0.0  >0.0  >0.0  > 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  >0.0  >0.0  >0.0  >0.0  >0.0  > 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  >  0.0  >  0.0  >  0.0  >  0.0  >  0.0  > 

0.0  ,  0.0  ,  0.0  / 

TROPICAL  MOLECULAR  SCATTERING 

data  at42/ 

8.04e-04 ,  7 .68e-04 ,  6  .99e-04,  6  .33e-04,  5.72e-04,  5.19e-04, 
4.69e-04,  4.22e-04,  3-80e-04,  3.41e-04,  3-04e-04,  2.72e-04, 
2.41 e-04 ,  2.138-04,  1.88e-04,  1.66e-04,  1.44e-04,  1.24e-04, 
1.058-04,  8.63e-05,  7.l6e-05,  5.96e-05,  4.98e-05,  4.19e-05, 
3.55e-05,  3.02e-05,  2.01e-05>  9.20e-C6,  4.37e-06,  2.15e-06, 
1.098-06,  0.0  ,0.0  / 


c 

c 


MIDLATITUDE  SUMMER  MOLECULAR  ABSORPTION 
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data 

0.0 

at43/ 

t 

0.0 

,  0.0 

9 

0.0 

,  0.0 

,  0.0 

0.0 

f 

0.0 

,  0.0 

9 

0.0 

,  0.0 

,  0.0 

0.0 

t 

0.0 

,  0.0 

9 

0.0 

,  0.0 

,  0.0 

0.0 

t 

0.0 

,  0.0 

9 

0.0 

,  0.0 

,  0.0 

0.0 

t 

0.0 

,  0.0 

9 

0.0 

,  0.0 

,  0.0 

0.0 

t 

0.0 

,  0.0 

/ 

MIDLATITUDE  SUMMER  MOLECULAR  SCATTERING 


data  at44/ 

8.20e-04,  7.8le-04,  7.06e-04,  5.38e-04,  5.77e-04,  5.21e-04, 
4.69e-04,  4.21e-04,  3-78e-04,  3-38e-04,  3.02e-04,  2.69e-04, 
2.39e-04,  2. lie-04,  1.83e-04,  1.56e-04,  1.33e-04,  1.l4e-04, 
9.72e-05,  8.29e-05,  7.07e-05,  6.02e-05,  5.14e-05,  4.38e-05, 
3.74e-05,  3-19e-05,  2.15e-05,  9.89e-06,  4.71e-06,  2.31e-06, 
1.19e-06,  0.0  ,  0.0  / 


MIDLATITUDE  WINTER  MOLECULAR  ABSORPTION 


data  at45/ 


0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

0.0 

I 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

/ 

MIDLATITUDE  WINTER  MOLECULAR  SCATTERING 


data  at46/ 

8.91  e-04 ,  8.43e-04,  7.52e-04,  6'.70e-04,  5.99e-04,  5.37e-04, 

4.80e-04,  4.27e-04,  3.80e-04,  3.36e-04,  2.97e-04,  2.59e-04, 

2.22e-04 ,  1.90e-04,  1.63e-04,  1.40e-04,  1.20e-04, 

8.80e-05 ,  7.53e-05,  6.45e-05,  5.51e-05,  4.70e-05, 

3.43e-05,  2.83e-05,  1.95e-05,  8.79e-06,  3.95e-06, 

0.0  ,  0.0  ,  0.0  / 


1  .03e-04, 
4 .0 1e-05 , 
1  .83e-06, 


SUBARCTIC  SUMMER  MOLECUUR  ABSORPTION 


data  at47/ 


_  _ _ 

«...  . 

r 

.  —  —  '  — '  - 
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data  at48/ 

& 

8.38e-04, 

7.98e-04, 

7.21e-04, 

6.50e-04, 

5 .84e-04 , 

5.24e-04, 

& 

4.71e-04, 

4.23e-04, 

3.79e-04, 

3-38e-04, 

3. 01e-04, 

2.64e-04, 

& 

2. 26 e-04, 

1  .95e-04, 

1  .67e-04, 

1  .44e-04 , 

1 .23e-04, 

1  .06e-04, 

& 

9.14e-05, 

7  .86e-05 , 

6  .75e-05 , 

5.80e-05, 

4.99e-05, 

4.29e-05, 

& 

3.69e-05, 

3.15e-05, 

2.13«-05, 

9.98e-06, 

4.73e-06, 

2.33e-06, 

& 

1 .21e-06  , 

0.0  , 

0.0  / 

1 

j*. 

c 

c 

SUBARCTIC  WINTER  MOLECULAR  ABSORPTION 

'V 

c 

data  at49/ 

& 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

*  ,  ■» 

& 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

& 

0.0  , 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0 

& 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

& 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

1 

& 

0.0  , 

0.0  , 

0.0  / 

« 

«-»• 

c 

ft  • 

i 

c 

SUBARCTIC  WINTER  MOLECULAR  SCATTERING 

\ 

c 

data  at40/ 

L  f 

& 

9.39e-04, 

8.77e-04, 

7.70e-04, 

6.82e-04, 

6  .06e-04 , 

5.40e-04, 

C  t. 

'  • 

& 

4 .82e-04 , 

4.29e-04, 

3. 81 e-04, 

3. 34 e-04, 

2.88e-04 , 

2.46e-04, 

t 

j 

& 

2.10e-04, 

1 .80e-04, 

1 .54e-04, 

1 .31e-05, 

1  . 1 2e-05  , 

9.63e-05, 

& 

8.25e-05, 

7.06e-05, 

6.06e-05, 

5 . 1 7e-05 , 

4.42e-05, 

3 .78e-05 , 

1 

s 

■ 

& 

3.23e-05, 

2.76e-05, 

1 .84e-05, 

8.1 4e-06 , 

3 .66e-06  , 

1 ,68e-06 , 

£ 

& 

0.0 

0.0  , 

0.0  / 

c 

c 

AEROSOL  ABSORPTION  -  CLEAR 

c 

data  at4a / 

& 

1.98e-02, 

1 .31e-02, 

5.71e-03, 

2.43e-03, 

1 . 1 5e-03 , 

7.23e-04, 

V 

fc 

& 

5.27e-04, 

4.27e-04, 

4.l8e-04, 

4 . 1 5e-04 , 

4.01e-04, 

3  .84e-04 , 

-  ..  . 

& 

3.81 e-04, 

3.75e-04, 

3  .56e-04 , 

3.42e-04, 

3.23e-04, 

3.13e-04, 

& 

3.06e-04, 

2.77e-04, 

2.l8e-04, 

1 .5  9e-04 , 

1 .17e-04, 

8.89e-04, 

& 

6.93e-05, 

5.66e-05, 

2.85e-05, 

8.02e-06 , 

2.1 1e-06 , 

0.0  , 

& 

0.0  , 

0.0  , 

0.0  / 

- 

c 

c 

AEROSOL  SCATTERING 

-  CLEAR 

. 

c 

data  at4b/ 

f 

& 

6 ,79e-02 , 

4.50e-02, 

1 .96e-02, 

8.36e-03, 

3.94e-03, 

2.4  9e-03, 

r 

t 

& 

1 .8le-03, 

1 .47e-03, 

1 .44e-03, 

1 .43e-03, 

1 .38e-03, 

1 .32e-03, 

► 

& 

1.31e-03, 

1 .29e-03 , 

1 ,22e- 03, 

1  .l8e-03, 

1 .1 1e-03, 

1 .08e-03, 

& 

1 .05e-03, 

9.51e-04, 

7 .48e-04 , 

5.45e-04, 

4.03e-04, 

3 .06e-04 , 

f 

& 

2.38e-04, 

1  .94e-04, 

9.79e-05, 

2.76e-05, 

7.28e-06 , 

1 .91e-06 , 

& 

0.0  , 

0.0  , 

0.0  / 

..... 

c 

c 

c 

AEROSOL  ABSORPTION 

-  HAZY 

i  t  Wi  -  -Ml  nfh 
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data  at4c/ 

9.63e-02,  5.82e-02,  2.13e-02,  7.78e-03,  2.84e-03,  1.04e-03, 
5.27e-04,  4.27e-04,  4.l8e-04,  4.15e-04,  4.01e-04,  3-84e-04, 
3.8le-04,  3.75e-04,  3.56e-04,  3.42e-04,  3-23e-04,  3.13e-04, 
3 .06e-04 ,  2.77e-04,  2.18e-04,  1  .59e-04,  1.17e-04,  8.89e-04, 
6 .93e-05 1  5.66e-05,  2.85e-05,  8.02e-06,  2.11e-06,  0.0  , 

0.0  ,  0.0  ,  0.0  / 

AEROSOL  SCATTERING  -  HAZY 

data  at4d/ 

3.31e-01,  2.00e-01,  7.31e-02,  2.67e-02,  9.76e-03,  3.56e-03, 
1 .81 e-03 1  1  .47e-03,  1  .44e-03,  1.43e-03,  1  .38e-03,  1.32e-03, 
1.31e-03,  1.29e-03,  1.22e-03,  1.l8e-03,  1.11e-03,  1.08e-03, 
1.05e-03,  9.51e-04,  7.l»8e-04,  5.45e-04,  4.03e-04,  3.06e-04, 
2.38e-04,  1.94e-04,  9.79e-05,  2.76e-05,  7.26e-06,  1.91e-06, 
0.0  ,  0.0  ,  0.0  / 


WAVELENGTH  IS  10.591  MICRONS 
TROPICAL  MOLECULAR  ABSORPTION 
data  at51/ 

5.79e-01,  5.17e-01,  2.85e-01 ,  1.81e-D1,  9.62e-02,  6.29e-02f 
5.02e-02,  3.99e-02,  3.20e-02,  2.63e-02,  2.07e-02,  1.65e-02, 
1.29e-02,  1.04e-02,  7-38e-03,  5.85e-03,  4.33e-03,  3.32e-03, 
3.56e-03,  4.35e-03,  5.19e-03,  6.27e-03,  7.47e-03,  8.35e-03, 
9.04e-03,  9. 91 e-03 »  1.20e-02,  1.19e-02,  1.10e-02,  8.86e-03, 
6.04e-03,  9.01e-04,  1 .54e-05/ 

TROPICAL  MOLECULAR  SCATTERING 

data  at52/ 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  ,  0.0  , 

0.0  ,  0.0  ,  0.0  / 

MIDLATITUDE  SUMMER  MOLECULAR  ABSORPTION 

data  at53/ 

3.58e-01,  3.26e-01,  1.88e-01,  1.1 5e-01 ,  7.58e-02,  5.54e-02, 
4.47e-02,  3.76e-02,  3-02e-02,  2.38e-02,  1.95e-02,  1.57e-02, 
1.24e-02,  9.53e-03,  8.34e-03,  8.70e-03,  8.49e-03,  8.36e-03, 
8. 47 e-03  ,  8.56e-03,  8.93e-03,  9.19e-03,  9.72e-03,  1.01e-02, 
1 .1 1e~02,  1 .1 1e-02,  1.33e-02,  1.32e-02,  1  .27e-02,  1.06e-02, 
7.52e-03,  1.08e-03,  1 .74e-05/ 
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c 

o  MIDLATITUDE  SUMMER  MOLECULAR  SCATTERING 

c 


data  at54/ 


& 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

& 

0.0  , 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0 

& 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

A 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

& 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0 

& 

0.0  , 

0.0  , 

0.0  / 

c 

c 

MIDLATITUDE  WINTER  MOLECULAR  ABSORPTION 

c 

data  at55/ 

& 

7-94e-02, 

7.31e-02, 

5.89e-02, 

4.91e-02, 

4.04e-02, 

3.24e-02 

& 

2.62e-02, 

2.15e-02, 

1 .73e-02, 

1 .40e-02 , 

1  .08e-02 , 

9.8le-03 

& 

9.48e-03, 

9.36e-03, 

9.34e-03, 

9.00e-03, 

8.75e-03 , 

8.57 e-03 

& 

8.56e-03, 

8.25e-03, 

8.0 1e-03 , 

8.19e-03, 

8.1 9e-03 , 

8.l6e-03 

& 

8.11e-03, 

8.38e-03, 

8.09e-03, 

6.85e-03, 

6.7le-03, 

6 .02e-03 

A 

4.40e-03, 

2.74e-04, 

1 .58e-04/ 

c 

c 

MIDLATITUDE  WINTER  MOLECULAR  SCATTERING 

c 

data  at56/ 

• 

& 

.  0.0  , 

0.0 

0.0 

0.0 

0.0  , 

0.0 

& 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0 

& 

0.0  , 

0.0 

0.0  , 

0.0 

0.0  , 

0.0 

& 

0.0 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

A 

0.0  , 

0.0 

0.0  , 

0.0 

0.0  , 

0.0 

& 

0.0 

0.0 

0.0  / 

c 

c 

SUBARCTIC 

SUMMER  MOLECULAR  ABSORPTION 

c 

data  at57/ 

A 

2.01e-01 , 

1 .82e-01 , 

1 .14e-01 , 

8. 1 5e-02, 

6.09e-02, 

4.66e-02 

& 

3.746-02, 

2.86e-02, 

2.28e-02, 

1 .79e-02, 

1 .38e-02, 

1 ,20e-02 

& 

1 .23e-02, 

1  .l8e-02 , 

1  .23e-02, 

1  .22e-02, 

1  .17e-02, 

1  ,22e-02 

& 

1.206-02, 

1 .20e-0 2, 

1.22e-02, 

1.19e-02, 

1 .21e-02, 

1 «21e-02 

& 

1 .20e-02, 

1 .27e-02, 

1 .45e-02, 

2.01e-02, 

1 .40e-02, 

1  . 19e-02 

& 

8.19e-03, 

1 .10e-03, 

1 .76e-05/ 

c 

c 

SUBARCTIC 

SUMMER  MOLECULAR  SCATTERING 

c 

data  at58/ 

& 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

A 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0  , 

0.0 

& 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

0.0 

& 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

& 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0  , 

0.0 

& 

0.0  , 

0.0  , 

0.0  / 

oooa»o»B«e«ft»B*  ooo«*s»s«>f».f*»B»  o  o  o  o«r«r»(!»r*o» 


SUBARCTIC  WINTER  MOLECULAR  ABSORPTION 


data  at59/ 
4 . 1 2e-02 , 
1 .93e-02, 
8.91 e-03, 
8.32e-03, 
7.33e-03, 
3.08e~03, 


4.15e-02,  4 .00e-02 ,  3.52e-02,  3-05e-02,  2.45e-02, 

1.51e-02,  1.17e-02,  9.59e-03,  8.93e-03,  8.92e-03, 

8.73e-03,  9.11e-03,  8.89e-03,  8.77e-03,  8.56e-03, 

8. 21 e-03  ,  7.88e-03,  7  .78e-03,  7.52e-03,  7.21e-03, 

6.84e-03,  7.24e-03,  5.78e-03,  5.10e-03,  4.10e-03, 
7.76e-04,  1 .79e-05/ 


SUBARCTIC  WINTER  MOLECULAR  SCATTERING 
data  at50/ 

0.0  ,  0.0  ,  0.0  ,  0.0 


AEROSOL  ABSORPTION  -  CLEAR 
data  at5a/ 

5.48e-03,  3-64e-03,  t.58e-03,  6.75e-04,  3.l8e-04,  2.01e-04, 
1.46e-04,  1.l8e-04,  1.l6e-04,  1.15e-04,  1.11e-04,  1.06e-04, 
1.06e-04,  1.04e-04,  9.89e-05,  9.49e-05,  6.97e-05,  8.69e-05, 
8.50e-05,  7.68e-05,  6.04e-05,  4.40e-05,  3-25e-05,  2.47e-05, 
1.92e-05,  1.57e-05,  7.90e-06,  2.23e-06,  0.0  ,0.0  , 

0.0  i  0.0  ,  0.0  / 


•  AEROSOL  SCATTERING  -  CLEAR 
data  at5b/ 

4.65e-03,  3.09e-03,  1.34e-03,  5.73e-04,  2.70e-04,  1.70e-04, 
1.24e-04,  I.OOe-04,  9-83e-05,  9-77e-05,  9.45e-05,  9.04e-05, 
8.96e-05,  8.83e-05,  8.39e-05,  8.05e-05,  7>6le-05,  7.38e-05, 
7.21e-05,  6.51e-05,  5.12e-05,  3-74e-05,  2.76e-05,  2.09e-05, 
1.63e-05,  1.33e-05,  6.71e-06,  1.89e-06,  0.0  ,0.0  , 

0.0  ,  0.0  ,  0.0  / 

AER0SCL  ABSORPTION  -  HAZY 

data  at5c/ 

2.67e-02,  1.6le-02,  5.90e-03,  2.l6e-03,  7.88e-04,  2.88e-04, 
1.46e-04,  1.l8e-04,  1.16e-04,  1.15e-04,  1.11e-04,  1.06e-04, 
1.06e-04,  1.04e-04,  9-89e-05,  9.49e-05,  8.97e-05,  8.69e-05, 
8.50e-05,  7.68e-05,  6.04e-05,  4.40e-C5,  3-25e-05,  2.47e-C5, 
1.92e-05,  1.57e-05,  7.90e-06,  2.23e-06,  0.0  ,0.0  , 


c 

c 

c 


AEROSOL  SCATTERING  -  HAZY 


& 

4 

4 

4 

& 

& 

c 

c 

0 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

0 

c 

& 

4 

& 


data  at5d/ 

2.27e-02 ,  1  .37e-02,  5.01e-03  ,  1  .83e-03,  6.68e-04,  2.44e-04, 
1.24e-04,  1 .00e-04 ,  9.83e-05,  9.77e-C5,  9.45e-Q5,  9.04e-05, 
8.96e-05,  8.83e-05,  8.39e-05,  8.05e-05,  7.6le-05,  7.38e-05, 
7.21e-05,  6.51e-05,  5.12e-05,  3.74e-05,  2.76e-05,  2.09e-05, 
1.63e-05,  1.33e-05,  6.71e-06,  1.89e-06,  0.0  ,  0.0  , 

.  0.0  / 


0.0 


0.0 


OPTIONAL  STORAGE  FOR  INPUT  DATA 
TROPICAL  MOLECULAR  ABSORPTION 
data  at6l/ 


& 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

& 

0.0 

9 

0.0 

f 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

& 

0.0 

; 

0.0 

f 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

& 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

& 

0.0 

t 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

& 

0.0 

i 

0.0 

9 

0.0 

/ 

TROPICAL  MOLECULAR  SCATTERING 
data  at62/ 


& 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

4 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

4 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

4 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

4 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

4 

0.0 

9 

0.0 

9 

0.0 

t 

MIDLATITUDE  SUMMER  MOLECULAR  ABSORPTION 
data  at63/ 


4 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

4 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

4 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

0.0 

4 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

9 

0.0 

4 

0.0 

9 

0.0 

9 

0.0 

9 

c.o 

9 

0.0 

9 

0.0 

4 

0.0 

9 

0.0 

9 

0.0 

/ 

MIDLATITUDE  SUMMER  MOLECULAR  SCATTERING 


data  at64/ 

0 .0  t  0.0 
0.0  ,  0.0 
0.0  ,  0.0 


0.0 

0.0 

0.0 


0.0 

o.c 

0.0 


0.0 

0.0 

0.0 


,  0.0 
,  0.0 
.  0.0 
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0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

/ 

MIDLATITUDE  WINTER  1 

MOLECULAR  ABSORPTION 

data 

at65/ 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

/ 

MIDLATITUDE  WINTER  ! 

MOLECULAR  SCATTERING 

data 

at66/ 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

1 

0.0 

9 

0.0 

0.0 

f 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

/ 

SUBARCTIC 

SUMMER 

MOLECULAR 

ABSORPTION 

data  at67/ 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

/ 

SUBARCTIC 

SUMMER 

MOLECULAR 

SCATTERING 

data 

at68/ 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

/ 

SUBARCTIC 

WINTER 

MOLECULAR 

ABSORPTION 

data  at69/ 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

0.0 

9 

0.0 

9 

0.0 

,  0.0 

9 

0.0 

9 

0.0 

SUBARCTIC  WINTER  MOLECULAR  SCATTERING 
data  at60/ 

0.0  ,  0.0  ,  0.0  ,  0.0 


AEROSOL  ABSORPTION  -  CLEAR 


data  at6a / 


AEROSOL  SCATTERING  -  CLEAR 


data  at6b/ 


,  0.0 


,  0.0 
,  0.0 


AEROSOL  ABSORPTION  - 


data  at6c/ 


,  0.0 


,  0.0 


AEROSOL  SCATTERING  -  HAZ 
data  at6d/ 

0,0  ,  0.0  ,  0.0 

0.0  ,  0.0  ,  0.0 

0.0  ,  0.0  ,  0.0 


,  0.0 
,  0.0 


,  0.0 


,  0.0 
,  0.0 
,  0.0 


,  0.0 

,  0.0 


,  0.0 
,  0.0 

.  0.0 
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o. 


c 

& 

& 


c 

& 

& 

c 

& 

& 

& 

c 

& 


c 

c 

c 

c 

c 

c 

c 

c 

c 


0.0 

0.0 

0.0 

end 

o  o  o 

•  •  • 

o  o  o 

o  o  o 

•  •  • 

o  o  o 

,  0.0 
,  0.0 

/ 

subroutine  tshare  (nstop) 

,  0.0  ,  0.0 

,  0.0  ,  0.0 


t 

t 


common/ atmos/  alfa(5,2),alfsct,alfab,ia,ab(33) ,as(33) »at(33, 1^,6) 
,mat,mvis 

common/ flags/mode , moomp , mp , lam , modesw , lunit , nout , Istog , lotype , 
irtype , ihe  t , ibf lag , iw 

common/  tdata  /  blt,dt,ht,phit,pt,rb,grndi,bdrt,sigj,sigt 
common/  rdata  /  blr,dr,hr,gl,bdlr 
common/  srdata  /  asr , hs,phi,phiam ,dphi 

common/  ldata  /  rl,alamf rpx, theta, x,angtr,angrec, gamin t,bw 

*  darki  &  ptherm  replace  pnep,  add  g  * 

common/  sndata  /  bwr, eta, f,em,pb,ps, darki, ptherm, snpndb, sndb,xm, 
bwopt,nflg,g 

common/  stgout  /  nvel ,svel,avel ,ndown,ncros,numtot,hvnear, 

hvfar,xdis,hdis,hdisdf ,xclos,hclos,hclsdf ,kount 

common  /pltc  /  xint(200) ,yint(200) ,h(200) fdcomp(2) ,np,note 

*  srdark  &  srther  replace  srpnep  * 

common/block1/xmod(6) ,gainsr(6) ,qe(6) ,fnoise(6) ,srbw(6) , 
srdark(6) ,srther(6) ,alamda(6) ,obw(6) ,nhol(6) 

common/  tbsdf  /  ng,gstart(3) ,gend(3) ,gampl(3) ,ybsdf ,sbsdf ,nbak, noa 
, ibsdf 

commo  n/ rs  c  t /oa  smax , d i f f oa , oaf whm , bmaxs , bfwhms ,bdiff(6),psiaz,psiel 
,gams 

*  add  labeled  common  wavefm  * 

common/  wavefm  /npts,t,form0( 1 000) ,form1(1 000) ,power0(1 000) , 

powerl ( 1 000) 

logical  prompt , change 

data  prompt, change/. true. , . false./ 

data  onedeg, pi, r2d/.0171»532925, 3. 1^159265^, 57  .29577951/ 
data  hatm/ 100000./ 


SWITCH  FLAG  —  DEPENDS  ON  FILE  STRUCTURE  = MODESW 
LOGICAL  UNIT  NUMBER  FOR  TERMINAL  INPUT  =LUNIT 

IF  FIRST  CALL  GO  DIRECTLY  TO  INPUT  LIST 

if  (nstop.eq.0)  go  to  10 

nstop=1 

IF  LAST  CALL  TO  TSHARE,  TERMINATE  RUNS 
write  (6,1220) 

read  (lunit, 1890 ,end=650)  nstop 
if  ( nstop. eq.1)  go  to  680 
nstop=10 


go  to  700 
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c  WAVELENGTH,  LAM  AND  ALAMDA 

10  ninsl 

if  ( .not. prompt)  write  (6,750)  nim 
if  (prompt)  write  (6,1230)  nim, lam 
read  (lunit, 1890 ,end= 650)  lam 
if  (lam.ne.6)  go  to  20 
write  (6,1240) 

read  (lunit, 1890 ,end=650)  alamda(6) 

20  alam=alamda( lam) 

if  (change)  changes .not. change 
c 

c  ATMOSPHERIC  COEFFICIENTS 

30  nim=28 

if  ( .not. prompt)  write  (6,760)  nim 
if  (prompt)  write  (6,1250)  nim,ia 
read  (lunit, 1890 ,end=650)  ia 
if  (ia.eq.2)  go  to  40 

C  SET  DEFAULT  ATMOSPHERIC  COEFFICIENTS 

alfsct=alfa(lam,1) 
al fab=al fa ( lam , 2 ) 
c 

c  ALLOWS  USER  TO  OVERRIDE  DEFAULT  VALUES 

c 

write  (6,1310)  alfsct 

read  (lunit, 1890 ,end=650)  alfsct 

write  (6,1320)  alfab 

read  (lunit, 1890 ,end=650)  alfab 

go  to  70 

40  if  (lam.ne.6)  go  to  50 

c 

C  READ  IN  DATA  FOR  HEW  WAVELENGTH 

c 

write  (6,1300) 

read  (lunit, 1890 ,end=650)  natfil 
if  (natfil. le.0)  go  to  10 

read  (natfil , 1210)  ( (at(i, j,6) , J*1 ,14) ,i=1 ,33) 
c 

c  AFGL  OPTIONS  FOR  ATMOSPHERIC  MODEL  AND  VISIBILITY 
c 

50  write  (6,1280)  mat 

read  ( lunit, 1 890 ,end=650)  mat 
write  (6,1290)  mvis 
read  (lunit, 1890 ,end=650)  mvis 

LOAD  THE  ABSORPTION  AND  SCATTERING  ARRAYS  AB  AND  AS 


c 

c 

c 


matl =2*mat-1 
mat2=mat1+1 
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mvisl =1C+2#mvis-1 
mvis2=mvis1+1 
do  60  j=1 ,33 

ab(j)=(at( j,mat1 , lam)+at( j,mvis1 ,1am) )*1 .e-3 
60  as( j)=(at( j,mat2,lam)+at( j,mvis2,lam))*1 .e-3 

70  if  (change)  go  to  670 

c 

c  TRANSMITTER  OPTICS  DIAMETER,  DT 

80  nim=2 

if  ( .not. prompt)  write  (6,770)  nim 
if  (prompt)  write  (6,1330)  nim,dt 
read  ( lunit, 1890 ,end=650)  dt 
if  (change)  go  to  670 
c 

C  TRANSMITTER  BEAMWIDTH,  PHIT 

90  nim=3 

if  ( .not. prompt)  write  (6,780)  nim 
if  (prompt)  write  (6,1340)  nim,phit 
read  (lunit, 1 890 ,end=650)  phit 
C  CHECK  TO  SEE  IF  DIFFRACTION  LIMIT  IS  EXCEEDED 

diffl=1 .22*alamda( lam)/dt 
if  (phit.gt.diffl)  go  to  100 
write  (6,1270)  diffl 
go  to  90 

100  if  (change)  go  to  670 

c 

c  BSDF  PARAMETERS 

110  nim=31 

if  (prompt)  write  (6,1350)  nim,ibsdf 

read  (lunit, 1890 ,end=650)  ibsdf 

if  (ibsdf. eq.1)  go  to  130 

write  (6,1360)  ybsdf 

read  (lunit, 1890 ,end=650)  ybsdf 

write  (6,1370)  sbsdf 

read  (lunit, 1890 ,end=650)  sbsdf 

write  (6,1380)  ng 

read  (lunit, 1890 ,end=650)  ng 

if  (ng.eq.0)  go  to  130 

do  120  i=1 ,ng 

write  (6,1 390 )  i,gstart(i) ,i,gend(i) ,i,gampl(i) 
read  (lunit, 1890, end=650)  gstart(i) ,gend(i) ,gampl(i) 
120  continue 
130  if  (change)  go  to  670 
c 

c  LINK  RECEIVER  OPTICS  DIAMETER,  DR 
140  nim=4 

if  ( .not. prompt)  write  (6,790)  nim 
if  (prompt)  write  (6,1400)  nim, dr 
read  (lunit, 1890 ,end=650)  dr 
if  (change)  go  to  670 


c  BACKSTOP  PARAMETERS 
150  nim=32 

write  (6,1430)  nim,nbak 
read  (lunit , 1890 ,end=650)  nbak 
if  (nbak.eq.1)  go  to  170 
if  (nbak.eq.2)  go  to  160 
write  (6,1450) 

read  ( lunit, 1 890, end=650)  bdiff(lam) 
bmaxs=bdif f( lam) 
go  to  170 

160  write  (6,1440)  bmaxs,bfwhms,bdiff(lam) 

read  ( lunit , 1 890 ,end=650)  bmaxs,bfwhms,bdiff(lam) 
170  if  (change)  go  to  670 
c 

c  ORIENTATION  OF  BACKSTOP 
180  nim=44 

psiaz=psiaz*r2d 

if  ( .not. prompt )  write  (6,800)  nim 
if  (prompt)  write  (6, *1410)  nim,psiaz 
read  (lunit, 1890 ,end=650)  psiaz 
psiaz=psiaz/r2d 
c 

psiel=psiel»r2d 

if  ( .not. prompt)  write  (6,810) 
if  (prompt)  write  (6,1420)  psiel 
read  (lunit, 1890 ,end=650)  psiel 
psiel=psiel/r2d 
if  (change)  go  to  670 
c 

0  RECEIVER  OPTICS  REFLECTION  PARAMETERS 
1 90  nim=33 

if  (prompt)  write  (6,1460)  nim,noa 
read  ( lunit, 1890 ,end=650)  noa 
if  (noa.eq.1)  go  to  200 
write  (6,1470)  oasmax,oafwhm,diffoa 
read  (lunit, 1890, end=650)  oasmax,oafwhn,diffoa 
200  if  (change)  go  to  670 
c 

0  LINK  TRANSMIT  POWER  (OUT  OF  OPTICS),  PT 
210  nim=6 

if  ( .not. prompt)  write  (6,620)  nim 
if  (prompt)  write  (6,1480)  nim,pt 
read  ( lunit, 1 890 ,end=650)  pt 
if  (change)  go  to  670 
c 

c  LINK  RANGE,  RL 
220  nim=8 

if  ( .not. prompt)  write  (6,840)  nim 
if  (prompt)  write  (6,1500)  nim,r! 
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read  (lunit, 1890 ,ends650)  rl 
if  (change)  go  to  670 
c 

c  LINK  TRANSMITTER  ALTITUDE,  HT 
230  nim=9 

if  ( .not. prompt)  write  (6,850)  nim 
if  (prompt)  write  (6,1510)  nim,ht 
read  (lunit,l890 ,end=650)  ht 
if  (change)  go  to  670 
c 

c  LINK  RECEIVER  ALTITUDE,  HR 

240  nim=10 

if  ( .not. prompt)  write  (6,860)  nim 
if  (prompt)  write  (6,1520)  nim.hr 
read  (lunit, 1890 ,end=650)  hr 
if  (change)  go  to  670 
c 

c  SPACE  TO  GROUND  FLAG 

250  nims34 

if  ( .not. change)  go  to  260 

c  IF  SWITCH  TO  ST0G  THEN  MUST  REDO  REST  OF  INPUTS 
change: .not. change 
write  (6,1260) 
go  to  10 

260  if (ht.lt. ha tm)  go  to  275 

if  ( .not. prompt)  write  (6,870)  nim 
if  (prompt)  write  (6,1530)  nim.istog 
read  (lunit, 1890 fend=650)  istog 
c 

C  REST  OF  SPACE  TO  GROUND  INPUTS 
c 

c  *  jump  to  get  turbulence  for  narrow  beam  analysis 
275  if  (istog. eq.0)  go  to  320 
mcomps 1 
c 

c  PERPENDICULAR  DISTANCE  TO  CENTER  OF  BEAM 
270  nim=35 

if  ( .not. prompt)  write  (6,880)  nim 
if  (prompt)  write  (6,1540)  nim,x 
read  (lunit, 1890 ,end=650)  x 
if  (change)  go  to  670 
c 

c  ELEVATION  ANGLE  OF  SR 
280  nim=36 

if  ( .not. prompt)  write  (6,890)  nim 
thetas the ta*r2d 

if  (prompt)  write  (6,1550)  nim, theta 
read  (lunit, 1890 ,ends650)  theta 
thetas the ta/r2d 
if  (change)  go  to  670 


c  ALTITUDE  AT  GROUND  LEVEL 
290  nim=39 

if  ( .not. prompt)  write  (6,950)  nim 
if  (prompt)  write  (6, 1610)  nim,gl 
read  ( lunit, 1 890 ,ends650)  gl 
if  (change)  go  to  670 
c 

c  FLAG  FOR  STOG  INPUTS,  IBFLAG 

300  nims46 

if  (. not . prompt )  write  (6,900)  nim 
if  (prompt)  write  (6,1560)  nim,ibflag 
read  (lunit,l890 ,end=650)  ibflag 
if  (ibflag.eq.2)  go  to  330 
c 

c  TOTAL  JITTER, SIGJ 

310  nim=47 

if  ( .not. prompt)  write  (6,910)  nim 
if  (prompt)  write  (6,1570)  nim, sigj 
read  (lunit,l890,end=650)  sigj 
c 

c  TURBULENCE  FLAG,  IW 

320  nim=48 

if  ( .not. prompt),  write  (6,920)  nim 
if  (prompt)  write  (6,1580)  nim,iw 
read  (lunit, 1890 ,end=650)  iw 
if  (change)  go  to  670 
c  *  jump  out  if  narrow  beam  analysis  * 
if  (istog.eq.0)  go  to  350 
go  to  490 
c 

C  RADIUS  OF  LINK  BEAM 

330  nim=37 

if  ( .not. prompt)  write  (6,930)  nim 
if  (prompt)  write  (6,1590)  nim,rb 
read  (lunit, 1890 ,end=650)  rb 
c 

C  EQUIVALENT  POWER  PER  SQ.M 

340  nim=38 

if  ( .not. prompt)  write  (6,940)  nim 
if  (prompt)  write  (6,1600)  nim,grndi 
read  ( lunit, 1 890, end=650)  grndi 
if  (change)  go  to  670 
e 

go  to  490 
c 

0  COMPUTATION  FLAG,  MC0MP 

0  MCOMPs 1  COMPUTE  POWER  RECEIVED 

C  MCOMPs 2  COMPUTE  S/N 
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350 


c 

c 

c 

c 

c 

c 

c 

c 


360 


c 

c 


370 


c 

c 

c 


c 


nlm= 25 

if  ( .not. prompt)  write  (6,980)  nim 
if  (prompt)  write  (6,1640)  nim.mcomp 
read  (lunit,l890 ,end=650)  moomp 
if  (change)  change:. not. change 

IF  POWER  IS  THE  DESIRED  OUTPUT  THE  DETECTOR  PARAMETERS  ARE  SKIPPED 

MP  =  1  ALL  SOURCES  INCLUDED 

2  ATMOSPHERIC  CONTRIBUTION  ONLY 

3  TRANSMITTER  CONTRIBUTION  ONLY 

4  RECEIVER  AND  BACKSTOP  CONTRIBUTION 

nim=5 

if  ( .not. prompt)  write  (6,990)  nim 
if  (prompt)  write  (6,1650)  nim,mp 
read  (lunit, 1890 ,end=650)  mp 
if  (change)  go  to  670 

if  (mcomp.eq.1)  go  to  490 

nim=13 

if  ( .not. prompt)  write  (6,1200)  nim 
if  (prompt)  write  (6,1660)  nim,irtype 
read  (lunit, 1890 ,ends650)  irtype 

DEFAULT  SR  PARAMETERS  IF  DESIRED 

xm=xmod( lam) 

g=gainsr(lam) 

eta=qe(lam) 

f=fnoise(lam) 

bwrssrbw(lam) 

set  wavelength  default  values  for  darki  &  ptherm 
darki: srdark( lam) 
ptherm: srther( lam) 
bwopt:obw( lam) 

if  (irtype.ne.1)  go  to  380 
if  (change)  go  to  670 
go  to  470 

INPUT  USER  SUPPLIED  PARAMETERS 

MODULATION  DEPTH,  XM 
nim: 14 

if  ( .not. prompt)  write  (6,1000)  nim 
if  (prompt)  write  (6,1670)  nim,xm 
read  ( lunit, 1 890 ,end:650)  xm 
if  (change)  go  to  670 
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c  DETECTION  TYPE.IHET 

390  nim=45 
ihet=1 

if  (alam.lt. 2. e-6)  go  to  400 
if  ( .not. prompt)  write  (6,1010)  nim 
if  (prompt)  write  (6 ,1680)  nim,ihet 
read  ( lunit, 1 890, end=650)  ihet 
400  if  (change)  go  to  670 
c 
c 

c  HETERODYNE  MIXING  EFFICIENCY,  EM 

410  nim=15 

if(ihet.eq.l)  go  to  415 
if  ( .not. prompt)  write  (6,1020)  nim 
if  (prompt)  write  (6,1690)  nim,em 
read  (lunit, 1890 ,end=650)  em 
415  if  (change)  go  to  670 
c 

C  QUANTUM  EFFICIENCY,  ETA 

420  nim=l6 

if  ( .not. prompt)  write  (6,1030)  nim 
if  (prompt)  write  (6,1700)  nim, eta 
read  (lunit, 1890 ,end=650)  eta 
if  (change)  go  to  670 
c 

c  *  add  detector  gain  * 
c  DETECTOR  GAIN 

435  nim=52 

if  (ihet.eq.2)  go  to  440 
if  ( .not. prompt)  write  (6,1035)  nim 
if  (prompt)  write  (6,1705)  nim,g 
read  (lunit, 1890  ,end=650)  g 
if  (change)  go  to  670 
c 

c  NOISE  ASSOCIATED  WITH  GAIN,  F 

430  nim=17 

if  ( .not. prompt)  write  (6,1040)  nim 
if  (prompt)  write  (6,1710)  nim,f 
read  (lunit, 1890 ,end=650)  f 
if  (change)  go  to  670 
c 

c  SR  BANDWIDTH,  BWR 

440  nim=l8 

if  ( .not. prompt)  write  (6,1050)  nim 
if  (prompt)  write  (6,1720)  nim,bwr 
read  ( lunit, 1 890, end=650)  bwr 
if  (change)  go  to  670 
c 

c  •  due  to  fundamental  difference  in  resulting  noise  statistics 
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c  lumped  noise  parameter  pnep  must  be  separated  into  darki  &  ptherm  * 
c  THERMAL  NOISE  POWER,  PTHERM,  &  DARK  CURRENT,  DARKI 

450  nimsi9 
c 

if(ihet.eq.2)  go  to  451 
if  ( .not. prompt)  write  (6,1060)  nim 
if  (prompt)  write  (6,1730)  nim, ptherm 
read  (lunit,l890 ,end=650)  ptherm 
if  ( .not. prompt)  write  (6,1065)  nim 
if  (prompt)  write  (6,1735)  nim, darki 
read  (lunit,l890 ,ends650)  darki 

451  if  (change)  go  to  670 
c 

c  SR  OPTICAL  BANDWIDTH 

460  nim=29 

if  ( .not. prompt)  write  (6,1070)  nim 
if  (prompt)  write  (6,1740)  nim,bwopt 
read  (lunit, 1890 ,end=650)  bwopt 
if  (change)  go  to  670 
c 

C  DAY/NIGHT  SWITCH  FOR  BACKGROUND  NOISE  COMPUTATION 

470  nim=30 
c 

if(ihet.eq.2)  go  to  471 
if  ( .not. prompt)  write  (6,1080)  nim 
if  (prompt)  write  (6,1750)  nim,nflg 
read  (lunit, 1890 ,end=650)  nflg 

471  if  (change)  go  to  670 
c 

c 

c  LINK  INFORMATION  BANDWIDTH,  BW 

480  nim=7 

if  ( .not. prompt)  write  (6,830)  nim 
if  (prompt)  write  (6,1490)  nim,bw 
read  (lunit, 1890 ,end=650)  bw 
if  (change)  go  to  670 
c 

c  SR  APERTURE  AREA 

4  90  nim=  1 2 

if  ( .not. prompt)  write  (8,970)  nim 
if  (prompt)  write  (6, 1630)  nim,asr 
read  (lunit, 1890 ,end=650)  asr 
if  (change)  go  to  670 
c 

c  SR  LINEAL  FIELD  OF  VIEW,  PHI 

500  nimsll 

if  ( .not. prompt)  write  (6,960)  nim 
if  (prompt)  write  (6,1620)  nim, phi 
read  (lunit, 1890 ,end=650)  phi 
if  (change)  go  to  670 


c  SR  LINEAL  FIELD  OF  VIEW  (AZIMUTH),  PHIAZ 
510  if  (mcomp.ne.2.and.istog.eq.O)  go  to  520 
nim=40 

if  ( .not. prompt)  write  (6,1090)  nim 
if  (prompt)  write  (6,1760)  nim,phiaz 
read  (lunit, 1890 ,end=650)  phiaz 
if  (change)  go  to  670 
c 

c  TRANSMITTER  HOOD  LENGTH,  BLT 
520  nim=20 

if  ( .not. prompt)  write  (6,1100)  nim 
if  (prompt)  write  (6,1770)  nim, bit 
read  (lunit, 1890 ,end=650)  Mt 
c 

c  TRANSMITTER  HOOD  DIAMETER,  BDRT 

530  nim=42 

c  SET  DEFAULT  VALUE  =  TO  OPTICS  DIAMETER 
bdrt=dt 

if  (blt.eq.O.)  go  to  540 
if  ( .not. prompt)  write  (6,1110)  nim 
if  (prompt)  write  (6,1780)  nim,bdrt 
read  (lunit, 1890 ,end=650)  bdrt 
if  (change)  go  to  670 
c 

c  RECEIVER  HOOD  LENGTH,  BLR 

540  nim=21 

if  ( .not. prompt)  write  (6,1130)  nim 
if  (prompt)  write  (6,1790)  nim,blr 
read  (lunit, 1890 ,end=650)  blr 
c 

c  RECEIVER  HOOD  DIAMETER,  BDLR 

550  nim=43 

c  SET  DEFAULT  VALUE  =  TO  OPTICS  DIAMETER 
bdlrsdr 

if  (blr.eq.C.)  go  to  560 
if  ( .not. prompt)  write  (6,1120)  nim 
if  (prompt)  write  (6,1800)  nim,bdlr 
read  ( lunit, 1 890 ,end=650)  bdlr 
if  (change)  go  to  670 
c 

c  SR  ALTITUDE,  HS 

560  nim=22 

if  (istog.eq.0)  go  to  570 
if  ( .not. prompt)  write  (6,1140)  nim 
if  (prompt)  write  (6,1810)  nim,hs 
read  ( lunit, 1 890, endr650)  hs 
570  if  (change)  go  to  670 
c 
c 


ANGLE  OF  INTERCEPT  PLANE,  GAMINT 


580  nim=41 

if  (istog.eq.1)  go  to  590 

if  ( .not. prompt)  write  (6,1 160)  nim 

gamdsgamint  *r2d 

if  (prompt)  write  (6,1830)  nim,gamd 
read  (lunit, 1890 ,end=650)  gamd 
gamint=gaod/r2d 
590  if  (change)  go  to  670 
c 

c  INTERCEPT  MODE,  MODE 

600  if  (istog.eq.1)  go  to  660 

nim=26 

if  ( .not. prompt)  write  (6,1150)  nim 
if  (prompt)  write  (6,1820)  nim, mode 
read  (5,1890 ,end=650)  mode 
c  *  Pr(e)  analysis  not  valid  for  heterodyne  case  * 
c  PR(E)  ANALYSIS  NOT  VALID  FOR  HETERODYNE  RCVR 
if  (mode.eq.6 .and.ihet.eq.2)  go  to  605 
c  *  add  additional  branching  for  mode  6  * 
if  (mode.eq.6)  go  to  610 
if  (mode. ge.iJ.and.mode.lt. 7)  go  to  630 
if  (mode.ne.7)  go  to  610 
write  (6,1870) 
write  (6,1880) 
go  to  600 
c 

c  GO  BACK  TO  ALLOW  FOR  CHANGE  OF  DECTECTI0N  TYPE 
605  write  (6,1868) 
go  to  390 
c 

610  if  (change)  changes .not. change 
c 

c  *  add  branching  for  mode  6  * 

620  if  (mode. gt. 3. and. mode. ne. 6)  go  to  630 
nim=23 

if  ( .not. prompt)  write  (6,1170)  nim 
if  (prompt)  write  (6,1840)  nim,rpx 
read  (lunit, 1890, ends650)  rpx 
if  (change)  go  to  670 
c 

c  *  add  branching  for  mode  6  * 

630  if  (mode. gt. 3 .and. mode .ne .6)  go  to  640 
nim=24 

if  ( .not. prompt)  write  (6,1180)  nim 
if  (prompt)  write  (6,1850)  nim,x 
read  (lunit, 1890 ,ends650)  x 
if  (change)  go  to  670 
c 

c  *  inputs  for  Pr(e0  analysis  -  theta, t,npts,form0,form1 
635  if  (mode.ne.6)  go  to  660 
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c  HAVE  SR  PARAMETERS  NEEDED  FOR  MODE  6  BEEN  INPUT? 
if  (mcomp.eq.2)  go  to  636 
mcomps2 

change: .not. change 
go  to  350 
c 

636  nim=49 

if  ( .not. prompt)  write  (6,890)  nim 
thetas the ta*r2d 

if  (prompt)  write  (6,1865)  nim, theta 
read  (Iunit,l890,ends650)  theta 
thetas the ta/r2d 
if  (change)  go  to  670 
e 

c  BIT  INTERVAL  TIME,  T 

637  nims50 

if  ( .not. prompt)  write  (6,891)  nim 
if  (prompt)  write  (6,1866)  nim,t 
read  (Iunit,l890,ends650)  t 
if  (change)  go  to  670 
c 

C  SAMPLED  SIGNAL  WAVEFORMS,  NPTS,  F0RM0  &  FORM' 

638  nim=51 

if  ( .not. prompt)  write  (6,892)  nim 
if  (prompt)  write  (6,1867)  nim,npts 
read  (lunit, 1890 ,ends650)  npts 
if  (npts.eq.2*(npts/2) )  go  to  638 
write  (6,893) 

read  ( lunit, 1 890 ,ends650)  (formO(i) ,is1 ,npts) 
write  (6,894) 

read  (lunit, 1890 ,ends650)  (forml(i) ,isi ,npts) 
if  (change)  go  to  670 
go  to  660 
c 

640  if  (mode. It. 4)  go  to  660 
nims27 

if  ( .not. prompt)  write  (6,1190) 
if  (prompt)  write  (6,1860)  nim,dcomp(mcomp) 
read  (lunit, 1890 ,ends650)  dcomp(mcomp) 
if  (change)  go  to  670 
go  to  660 
e 

c  PROMPT  SWITCH 

c  TWO  SCHEMES  ARE  POSSIBLE,  ONE  USING  SEVERAL  FILES 

c  ON  THE  SAME  LOGICAL  UNIT,  THE  OTHER  USING  INCREMENTING 

c  LOGICAL  UNIT  NUMBERS.  IN  EACH  CASE  SEVERAL  FILES  MUST  BE 

c  ALLOCATED  TO  THE  TERMINAL  SINCE  EACH  TIME  THE  PROMPT  SWITCH 

c  IS  USED  THE  CURRENT  TERMINAL  INPUT  FILE  IS  TERMINATED, 
c 

650  prompts .not. prompt 
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if  (modesw.eq.2)  lunitslunit+1 
go  to  690 
c 

660  write  (6,710) 
go  to  680 
c 

670  write  (6,720) 

read  (lunit,l890)  nim 
if  (nim.eq.O)  go  to  680 
go  to  690 
c 

680  changes .false, 
write  (6,730) 
read  (lunit,l890)  ic 
if  (ic.eq.3)  go  to  10 
if  (ic.eq.2)  go  to  700 
changes. true, 
write  (6,740) 
read  (lunit,l890)  nim 
c  *  add  input  code  branch  points  * 

690  go  to  (10,80,90,140,360,210,480,220,230,240,500,490,370,380,410,42 
4  0,430,440,450,520,540,560,620,630,350,600,640,30,460,470,110,150,1 

4  90,250,270,280,330,340,290,510,580,530,550,180,390,300,310, 

4  320,635,637,638,435),  nim 

-700  return 

c 

c  FORMAT  STATEMENTS  FOR  PARTIAL  PROMPT  MODE 

c 

c 

710  format  (// , lOx, "end  of  inputs") 

720  format  (10x,"next  input?  if  none,  enter  0") 

730  format  (10x,"do  you  wish  to  change  anything?  1-yes  2-no  3-all") 
740  format  (1  Ox, "which  input?  enter  input  code.") 

750  format  (3x, i3 ,4x, "lamda  ",2x,i3) 

760  format  (3x, i3 ,4x, "ia  ",2x,i3) 

770  format  (3x, i3 ,4x, "dt  ",2x,f7.3) 

780  format  (3x,i3,4x,"phit  ",2x, 1  pel  1 .3) 

790  format  (3x, i3 ,4x, "dr  ",2x,f7.3) 

800  format  (3x,i3,4x,"psiaz  ",2x,f7.3) 

810  format  (10x,"psiel  ",2x,f7.3) 

820  format  (3x,i3,4x,"pt  ",2x, Ipel 1 .3) 

830  format  (3x,i3,4x,"bw  ",2x, Ipel 1 .3) 

840  format  (3x,i3,4x,"rl  ",2x,1pe11 .3) 

850  format  (3x,i3,4x,"ht  ",2x, 1 pe 1 1 .3) 

86C  format  (3x,i3 ,4x,"hr  ",2x, Ipel 1 .3) 

870  format  (3x,i3 ,4x, "istog  ",2x,i3) 

880  format  (3x,i3,4x,"x  ",2x, Ipell  .3) 

890  format  (3x,i3 ,4x, "theta  ",2x, Ipel 1 .3) 

891  format  (3x,i3,4x,"t  ",2x, Ipell  .3) 

892  format  (3x,i3,4x,"npts  ",2x,i3) 
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893  format  (1  Ox, "space  waveform") 

894  format  (1  Ox, "mark  waveform") 

900  format  (3x,i3,4x, "ibflag”,2x, i3) 

910  format  (3x,i3 ,4x, "sigj  ",2x, Ipel 1 .3) 

920  format  (3x,i3 ,4x, "iw  ",2x,i3) 

930  format  (3x, i3 .4x, "rb  ",2x, Ipel 1  .3) 

940  format  (3x, i3 ,4x, "grndi  ",2x, Ipel 1 .3) 

950  format  (3x, 13, 4x,"gl  ",2x, Ipel 1 .3) 

960  format  (3x,i3,4x,"phi  ",2x,1pe11 .3) 

970  format  (3x,13 ,4x, "asr  ",2x,1pe11 .3) 

980  format  (3x,i3,4x, "mcomp  ",2x,13) 

990  format  (3x,13 ,4x, "mp  ",2x,13) 

1000  format  (3x, 13 ,4x, "xm  ",2x,f7.3) 

1010  format  (3x, 13 ,4x, "ihet  ",2x,13) 

1020  format  (3x, 13 ,4x, "em  ",2x,f7.3) 

1030  format  (3x,13 ,4x, "eta  ",2x,f7.3) 

1035  format  (3x,i3,4x,"g  ",2x,f7.3) 

1040  format  (3x,13,4x,"f  ",2x,f7.3) 

1050  format  (3x,i3 ,4x, "bwr  ",2x,1pe11 .3) 

1060  format  (3x,13 ,4x, "ptherm",2x, Ipel 1 .3) 

1065  format  (3x, 13 ,4x, "darki  ",2x,1pe11 .3) 

1070  format  (3x, i3 ,4x, "bwopt  ",2x, Ipel 1 .3) 

1080  format  (3x, 13 ,4x, "nite  n,2x,i3) 

1090  format  (3x, 13 ,4x, "phiaz  ",2x, Ipel 1 .3) 

1100  format  (3x,13 ,4x, "bit  ",2x,f7.3) 

1110  format  (3x,13 ,4x, "bdrt  ",2x,f7.3) 

1120  format  (3x, 13 ,4x, "bdlr  ",2x,f7.3) 

1130  format  (3x, i3 ,4x, "blr  ",2x,f7.3) 

1140  format  (3x, 13 ,4x, "hs  ",2x,1pe11 .3) 

1150  format  (3x, 13 ,4x, "mode  ",2x,13) 

1160  format  (3x, 13 ,4x, "gamint",2x, 13) 

1170  format  (3x, 13 ,4x, "rpx  ",2x, Ipel 1 .3) 

1180  format  (3x,i3,4x,"x  ",2x, Ipel 1 .3) 

1190  format  (3x,13,4x,"dcomp  ",2x,13) 

1200  format  (3x,13 ,4x,"irtype",2x,i3) 

1210  format  (6x,7( 1pe9 .2) ) 

1220  format  (10x,"do  you  want  another  run?  1-yes  2-no") 

0 

0  FORMAT  STATEMENTS  FOR  FULL  PROMPT  MODE 
c 

1230  format  (3x,13,4x,"lam  —  wavelength  index  ",2x, 

&  13 ,/10x, "( 1  —  .5 1 45  2-. 6328  3-. 85  4-1  .06  5-10.591  6-other)") 

1240  format  (1  Ox, "enter  wavelength  in  meters") 

1250  format  (3x, 13 ,4x, "la  —  atmospherics  (1-user  2-afgl)  ",2x,i3) 

1260  format  (10x,"if  changing  to  or  from  space  to  ground  analysis,  ", 

A  "must  input  all  values") 

1270  format  (1  Ox, "diffraction  limit  is  ",1pe1l.3,"  radians") 

1280  format  (10x,"mat  —  atmospheric  model  ",2x,13,/» 

A  20x,"1  -  tropical",/ ,20x, "2  -  midlatitude  summer",/ ,20x, 

A  "3  -  midlatitude  winter", /,20x, "4  -  subarctic  summer",/ ,20x, 
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4  "5  -  subarctic  winter") 

1290  format  (10x,"mvis  --  visibility  (1-clear  2-hazy)  ",2x,i3) 

1300  format  (10x, "which  input  file?  must  be  allocated  (eg. 4)",/ ,10x, 

4  "0  -  skip  back  to  top  of  inputs") 

1310  format  (10x,"alfsct  —  atmospheric  scattering  coef,  1/m",2x, 

4  1 pe 1 1  .3) 

1320  format  (10x,"alfab  —  atmospheric  absorption  coef,  1/m",2x, 

4  Ipel 1.3) 

1330  format  (3x,i3,4x,"dt  —  transmitter  optics  dicmeter,  m  ",2x, 

&  f7.3) 

1340  format  (3x,i3,4x,"phit  —  transmitter  beamwidth,  radians  ",2x, 

4  Ipell .3) 

1350  format  (3x,i3 ,4x, "ibsdf  —  bsdf  (1-default,  2-u3er)  ",2x, 

4  i3) 

1360  format  (10x,"ybsdf  --  bsdf  y-intercept  at  1  degree  ",2x, 

&  Ipell. 3) 

1370  format  (10x,"sbsdf  —  bsdf  slope  (log-log)  "*2x, 

&  Ipel 1.3) 

1380  format  (10x,"ng  —  number  of  glitches  (0  -  3)  ",2x,i3) 

1390  format  (lOx, "enter  — ",/ ,15x, "gstart( ", il , ")  -  start  of  glitch  ", 
&  "(degrees)", 4x,0pf7. 2, /, 15x, "gend(",i1 ,")  -  end  of  glitch  ”, 

&  "(degrees)", 8x,0pf7. 2, /, 15x, "gampl(", il ,")  -  amplitude  of  glitch", 
&  11x, 1pe12.4) 

1400  format  (3x, i3 ,4x, "dr  —  link  receiver  optics  diameter,  m",2x, 

&  f7 -3) 

1410  format  (3x,i3 ,4x, "psiaz  —  az.  orientation  of  backstop  (deg)  ", 

&  2x,f7.3,/,21x,"  0  -  normal  to  beam") 

1420  format  (10x,"psiel  —  el.  orientation  of  backstop  (deg)  ",2x, 

4  f7.3»/»21x,"  0  -  normal  to  beam") 

1430  format  (3x, i3 ,4x, "nbak  —  backstop  (1 -default,  2-user,  ", 

4  "3-lambertian)  ",2x,i3) 

1440  format  (lOx, "enter  —  bmaxs ,  bfwhms,  bdiff  "/21x,f8.4 ,2x,f8.4, 
4  2x ,  f  8 . 4 ) 

1450  format  (10x, "bdiff  —  diffuse  reflectance  (0  to  1)  ",2x,/, 

4  20x, "(lambertian  model ,  eg.  .1)",f7.3) 

1460  format  (3x, i3 ,4x, "noa  —  rcvr  scatter  (1-default,  2-user)", 2x, 

4  i3) 

1470  format  (lOx, "enter  —  oasmax,  oafwhm,  diffoa  "/21x, f8.4 ,2x, f8.4 , 
4  2x,f8.4) 

1480  format  (3x, 13 ,4x, "pt  —  transmit  power,  watts  ",2x, 

4  Ipell. 3) 

1490  format  (3x,i3,4x,"bw  —  link  bandwidth,  hz  ",2x, 

4  Ipell. 3) 

1500  format  (3x,i3 ,4x, "rl  —  link  range,  meters  ",2x, 

4  Ipell. 3) 

1510  format  (3x, i3 ,4x, "ht  —  altitude  of  transmitter,  meters  ",2x, 

4  Ipell. 3) 

1520  format  (3x,i3 ,4x, "hr  —  altitude  of  link  receiver,  m  ",2x, 

4  ipell. 3) 

1530  format  (3x,i3 ,4x, "istog  —  space  to  ground  (0-no,  1-yes)  ",2x, 
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&  i3) 


1540 

& 

format  (3x,i3>4x,"x 

1 pell .3) 

“ 

sr  distance,  to  beam  center,  m 

*,2x, 

1550 

& 

format  (3x, i3 »4x, "theta 

1 pell. 3) 

zenith  angle  of  sr,  deg 

"»2x, 

1560 

& 

format  (3x, 13 ,4x, "ibflag 
2x,13) 

inputs  using  turbulence  1-yes  2- 

•no", 

1570 

& 

format  (3x,13,4x, "sigj 

1 pell. 3) 

" 

total  jitter,  rad 

">2x, 

1580 

format  (3x,13,4x,"iw 

— 

turbulence 

”>2x, 

& 

i3,/,21x,"1-severe  2-moderate  3-nild") 

1590 

& 

format  (3x, i3 >4x, "rb 

1  pell  .3) 

radius  of  link  beam,  m 

"»2x, 

1600 

& 

format  (3x, i3 >4x, "grndi 

1  pell .3) 

equivalent  irradiance,  watts/sq, 

,m",2x, 

1610 

& 

format  (3x, i3 »4x, "gl 

1 pell .3) 

altitude  at  ground  level,  m 

",2x, 

1620 

& 

format  (3x,i3.4x, "phi 

1  pell. 3) 

““ 

sr  field  of  view,  radians 

",2x, 

1630 

& 

format  (3x, i3 »4x, "asr 

1 pell. 3) 

area  of  sr  aperture,  sq.  meters 

".2x, 

1640 

& 

format  (3x, i3 ,4x, "mcomp 
13) 

•*“ 

compute  1 -power  2-s/n  ratio 

",2x, 

1650 

& 

format  (3x, 13 »4x, "mp 

13) 

source?  1-sum,  2-atm,  3-tr,  4-rc",2x, 

1660 

& 

format  (3x, 13 i4x, "irtype 
13) 

***" 

sr  type  (1 -default,  2-user  input)", lx, 

1670 

& 

format  (3x, 13 ,4x, "xm 
f7.3) 

modulation  depth 

",2x, 

1680 

format  (3x, 13 ,4x, "ihet 

— 

detection  type 

"»2x, 

& 

13,/,21x,"1  -  direct  2  • 

-  heterodyne") 

1690 

& 

format  (3xf i3 »4x, "em 

1  pell  .3) 

mixing  efficiency 

"»2x, 

1700 

& 

format  (3x, 13 .4x, "eta 
f7.3) 

quantum  efficiency  of  detector 

">2x, 

1705 

& 

format  (3x,13»4x,"g 
f7.3) 

predetection  gain 

",2x, 

1710 

& 

format  (3x,i3t4x,"f 

1 pe 11.3) 

excess  noise  factor 

"»2x, 

1720 

& 

format  (3x,13 >4x, "bwr 

1 pell  .3) 

““ 

bandwidth  of  sr,  hz 

">2x, 

1730 

& 

format  (3x, 13 >4x, "ptherm 

1  pel  1 .3) 

thermal  noise  eqv.  power  of  sr, 

w",1x, 

1735 

& 

format  (3x, i3 >4x, "idark 

1 pell .3) 

dark  current  of  sr 

"»2x, 

1740 

& 

format  (3x, 13 ,4x, "bwopt 

1 pell  .3) 

sr  optical  bandwidth,  microns 

"»2x, 

1750 

& 

format  (3x, 13 ,4x, "nflg 
13) 

1 -sunny  2-cloudy  3-nighttime 

",2x, 

1760 

format  (3x,i3»4x,"phiaz 

— 

sr  field  of  view  (azimuth),  rad 

",2x, 
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4  Ipel 1 .3) 

1770  format  (3x, i3 ,4x, "bit  —  hood  length  of  transmitter,  m  ",2x, 
4  f7.3) 

1780  format  (3x, i3 ,4x, "bdrt  —  transmitter  hood  diameter,  m  ",2x, 

4  f7.3) 

1790  format  (3x, i3 ,4x, "blr  --  hood  length  of  receiver,  m  ",2x, 

&  H.  3) 

1800  format  (3x, i3 ,4x, "bdlr  --  receiver  hood  diameter,  m  ",2x, 

4  f7.3) 

1 810  format  (3x, i3 ,4x, "hs  —  altitude  of  sr,  meters  B,2x, 

&  Ipell  .3) 


1820  format  (3x, i3 ,4x, "mode  —  select  output  mode  (7  for  info)  ",2x, 

&  i3) 

1830'  format  (3x,i3,4x,"gamint  —  angle  of  intercept  plane,  deg  ",2x, 

4  Ipel 1 .3 ,/ ,21x, "  0  for  horizontal  plane") 

1840  format  (3x,i3 ,4x, "rpx  —  distance  from  xmtr  to  bisector,  m",1x, 

4  Ipel 1.3) 

1850  format  (3x,i3,4x,"x  --  perpendicular  dist  to  beam  axis,  m", 

4  Ipell. 3) 

1860  format  (3x, i3 ,4x, "dcomp  --  value  of  contour,  dbw  or  db  s/n  ",2x, 

&  Ipell. 3) 

1865  format  (3x, i3 ,4x, "theta  —  angle  link  axis  to  sr  axis,  d  ",2x, 

&  Ipell. 3) 

1866  format  (3x,i3,4x,"t  —  bit  interval,  s",19x, Ipell .3) 

1867  format  (3x, i3 ,4x, "npts  —  sample  pts  in  signal  waveform  ", 

&  2x,i3,/,22x,"(npts  must  be  odd)") 

1868  format  (/ ,20x, "Pr(e)  analysis  not  valid  for  heterodyne  rcvr") 

1870  format  (/11x,"<—  rpx  —>",//,  1 0x, "t) - 

4  " - (r",/,21x,"a",9x,"/",/,21x,"I",8x, "/",2x, "theta",/ ,?1x, 

&  "!",7x,"/",/,21x,"!",6x,"/",/,27x,"/",/ ,21x, "x",4x, "/",/ ,25x, "/", 

4  /,21x,"l",2x,"/",/,21x,"!",1x,"/",/,21x, "v", "/",/ ,21x, "sr)"//, 1 0x, 

&  "rs  =  distance  from  sr  to  +",/,10x,"rv  =  distance  from  t  to  +",/) 

1880  format  (10x,"mode  1  -  fix  x,  rpx,  and  vary  theta",/ , 19x, "to  scan  ", 
4  "link  with  sr  position  fixed. ",/ ,1  Ox, "mode  2  -  fix  rs,  rv,  and  ", 

4  "vary  theta",/ , 1 9x, "to  observe  same  point  in  link  from  different  ", 

4  "angles. ”,/, 1 0x, "mode  3  -  fix  x  and  vary  theta  and  rpx",/,19x, 

4  "to  observe  beam  along  a  line  parallel  to  the  link  axis.",/,10x, 

4  "mode  4  -  isophotes  looking  at  the  transmitter  only. "/,1 Ox, 

4  "mode  5  -  isophotes  summing  total  power  from  sweeping  the  entire  ", 

4  "link. "/,1 Ox, "mode  6  -  probability  of  bit  error  fixing  rpx,  x  ", 

4  "and  theta."/) 

1890  format( v) 
end 
c. 

subroutine  setup 
c 

c  THIS  ROUTINE  CALLS  THE  SINGLE  POINT  ROUTINE 

c  TO  CALCULATE  A  SERIES  OF  POINTS  GIVING  A 

c  PROFILE  OF  THE  OFF-AXIS  S/N  IN  SEVERAL 

c  MANNERS  DETERMINED  BY  THE  MODE  SELECTED. 
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c 

c 

SCENARIO 

DIAGRAM 

c 

<—  RPX  • 

— > 

c 

T) - 

c 

A 

/ 

c 

! 

/  THETA 

c 

! 

/ 

/ 

c 

1 

/ 

c 

/ 

c 

X  / 

c 

/ 

c 

!  / 

c 

!  / 

c 

V/ 

c 

SR) 

c 

RV 

DIST.  FROM  XMTR  TO  BEAM(+) 

c 

RS 

- 

DIST.  FROM  SR  TO  BEAM( +) 

c 

RT 

- 

DIST.  FROM  XMTR  TO  SR 

c 

RL 

- 

DIST.  FROM  XMTR  TO  RCVR 

c 

HS 

- 

ALTITUDE  OF  SR 

c 

PHI 

- 

FOV  (ELEV)  OF  SR  IN  RAD 

c 

THETA 

- 

ANGLE  BETWEEN  SR  OPTICAL  AXIS  AND  LINK  BEAM  SEGMENT 

c 

TO  THE 

LINK  RECEIVER 

c 

RPX 

- 

DIST.  FROM  XMTR  TO  INTERSECTION  OF  ORTHOGONAL  RAY 

c 

FROM  SR 

c 

X 

- 

DIST.  ALONG  ORTHOGONAL  RAY  TO  BEAM 

c 

ANGTR 

- 

THETA  TO  XMTR 

0 

ANGREC 

- 

THETA  TO  RECEIVER 

c 

DP 

- 

LINK  PATH  ZENITH  ANGLE 

c 

ANGTOT 

- 

TOTAL  ANGLE  SUBTENDED  BY  LINK  AT  SR 

c 

c 

COMP 

CONTRIBUTION  FROM  LINK  BEAM  (POWER  OR  S/N) 

0 

TD 

- 

THETA  IN  DEGREES 

c 

NRET 

- 

SET  TO  1  IF  COMP=0  TO  AVOID  LOG(O) 

c 

DANG 

- 

INCREMENT  OF  THETA 

c 

ANGMAX 

- 

MAXIMUM  THETA 

0 

GAMINT 

- 

ANGLE  OF  INTERCEPT  PLANE 

c 

GAMP 

- 

ZENITH  ANGLE  FROM  TR  TO  SR 

c 

COMPB4 

LAST  VALUE  OF  COMP 

c 

RSB4 

- 

LAST  VALUE  OF  RS 

c 

DCOMP 

- 

DESIRED  CONVERGENCE  VALUE  OF  COMP 

c 

SLOPE 

- 

SLOPE  BETWEEN  LAST  TWO  POINTS 

c 

RSNEW 

- 

ESTIMATED  VALUE  FOR  RS 

0 

H 

- 

NO.  OF  ITERATIONS  NEEDED  TO  CONVERGE  (ARRAY) 

c 

XINT 

X  ARRAY  FOR  STORING  OUTPUT 

c 

YINT 

- 

Y  ARRAY  FOR  STORING  OUTPUT 

49 


common/  flags  /mode, mcomp,mp, lam, modesw,lunit,nout,istog,iotype, 
&  irtype,ihet,ibflag,iw 

common/  tdata  /  blt,dt,ht,phit,pt,rb,grndi,bdrt,sigj,sigt 
common/  rdata  /  blr,dr,hr ,gl,bdlr 
common/  srdata  /  asr ,hs,phi,phiaz ,dphi 

common/  ldata  /  rl,alam,rpx, theta, x, angtr, angrec,gamint,bw 
c  *  darki  4  ptherm  replace  pnep  add  g  * 

common/  sndata  /  bwr, eta, f,em,pb,ps, darki, ptherm, snpndb,sndb,xm, 
&  bwopt,nflg,g 

common/  pltc  /  xint(200) ,yint(200) ,h(200) ,dcomp(2) ,np,note 
common/  parts  /  pa,prtr,prec,pat,prt,pre 
c  *  add  labeled  common  wavefm  * 

common/  wavefm  /  npts, t,formO(  1 000) ,form1( 1 000) ,power0( 1 000) , 

&  powerl ( 1 000) 

c 

double  precision  re, reht.rehr, gamp, disc 
data  re/6. 3113146/ 

data  onedeg, pi ,r2d/ .0174532925,3 .141 592654,57 .29577951/ 
data  blank, star/"  ","*"/ 

C  BLANK  OUT  CONVERGENCE  WARNING  SYMBOL  ARRAY 

do  10  i=1 ,100 
10  h(i)=blank 

c 

nret=0 

np=0 

rehr=re+hr 

rehtrre+ht 

C  ANGTR  -  THETA  TO  TRANSMITTER 

C  ANGREC  -  THETA  TO  RECEIVER 

c  LINK  PATH  ZENITH  ANGLE  DP 

dp=dacos( ( rehr**2-reht ••2-rl##2) /( 2 . *reht #rl ) ) 
c  USE  ATAN2  TO  GET  ANGLES  IN  THE  RIGHT  QUADRANT 
angtr =atan2 ( x , rpx ) 
angrec=atan2( x, ( rpx-rl ) ) 
c 

c  CHECK  TO  SEE  IF  BOTTOM  OF  BEAM  HITS  A  CURVED  EARTH 
c 

xi=dp+phit 

disc=re**2-(reht*sin(xi) )##2 
c 

c  IF  DISC  IS  NEGATIVE  NO  REAL  ROOT  EXISTS 
c 

if  (disc.le.O.)  go  to  20 
e 

c  CALCULATE  RANGE  TO  GROUND,  RG 
c 

rg=-reht*cos(xi)-dsqrt(disc) 

c 

if(rg.gt.0..and.rg.lt.rl)  write  (6,210)  rg 
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c  *  add  mode  6  * 

20  go  to  (30,50,80,130,130,125),  mode 

c 

c 

0  MODES 1  FIX  X,  RPX,  AND  VARY  THETA  TO  SCAN  LINK  WITH  A  FIXED 
c  SURVEILLANCE  RECEIVER  LOCATION 

c 
c 

c  ANGTOT  IS  THE  TOTAL  ANGLE  SUBTENDED  BY  THE  LINK  AT  THE 

c  SURVEILLANCE  RECEIVER 

c 

30  angtot=angrec-angtr-phi 

c 

rt=sqrt(rpx**2+x**2) 

gamp=aeos( ( rpx*co  s( dp ) +x»sin( gamint ) *sin( dp ) ) /rt ) 
hs=  dsqrt ( reht  **  2+rt  *#  2+2 . *rt *reht  #dco  s ( gamp ) ) -re 
dang=(angtot-20 .•onedeg)/l6 . 
if  (dang.lt.onedeg)  dangsonedeg 
c 

c  START  FROM  TRANSMITTER  TOWARD  RECEIVER 

c 

theta=angtr+phi/2 . 
do  40  i=1 ,50 
call  comtot  (comp,nret) 
td=theta*r2d 
c 

c  WRITE  THE  OUTPUT 

if  (nout.ge.1)  write  (nout,190)  td,comp,prtr,prec,pa 
o 

c  STORE  THE  RESULTS 

xint(i)=td 
yint(i)=comp 
deltasonedeg 
o 

e  PICK  DELTA  OF  ONE  DEGREE  NEAR  THE  TRANSMITTER  &  RECEIVER 
o 

if  (i.gt.9.and.i.lt.26)  delta=dang 
the  tas  the ta+de 1 1  a 

if  (theta. gt. (angrec-phi/2. ) )  go  to  180 
40  continue 

c 
c 

0  MODEs 2  FIX  RS,  RV,  VARY  THETA  TO  OBSERVE  ONE  POINT  ALONG  THE 

c  LINK  AXIS  FRCM  DIFFERENT  ASPECT  ANGLES.  NOTE  THAT 
c  THE  SCATTERING  VOLUME  CHANGES  WITH  ANGLE, 
c 

50  theta=onedeg 

c  STORE  RPX  AND  X  TEMPORARILY  IN  RPX1  AND  XI 
rpxl =rpx 
x1=x 
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rs=x 

o  MAXIMUM  THETA 

angmaxspi-onedeg 
c  THETA  INCREMENT 

dang=(pi-phi-22*onedeg)/l6 . 
c 

c  START  LOCKING  TOWARD  THE  XMTR;  LAST  POINT  HAS  THE  RCVR  IN  FOV. 
c 

do  60  is  1,40 

c  COMPUTE  SR  POSITION  COORDINATES  X,RPX 

xsrs*sin( theta) 
rpxsrs*cos(theta)+rpx1 
c 

rtssqrt(rpx#*2+x**r2) 
angtrsatan2( x,rpx) 
angrecsatan2(x, (rpx-rl) ) 

gamp=acos( ( rpx*cos( dp ) +x»sin( gamint ) *sin( dp ) ) /rt ) 
hs=dsqrt  ( reht  **  2+r t •• 2+2 .  *rt  *reht  *dco  s  ( gamp } )  -re 
call  comtot  (comp,nret) 

C  WRITE  OUTPUT 

td=theta*r2d 

if  (nout.ge.1)  write  (nout,190)  td,comp,prtr,prec,pa 
c 

c  STORE  THETA,  COMP 

c 

xint(i)=td 

yint(i)scomp 

c  THETA  INCREMENT  IS  ONE  DEGREE  NEAR  XMTR  AND  RCVR 
deltasonedeg 
c 

C  SAME  COMMENT  APPLIES  AS  IN  MODE  1 

c 

if  (i.gt.9>and.i.lt.26)  delta=dang 
the  tas  the  ta+del ta 
if  (theta.gt.angmax)  go  to  70 
60  continue 

70  x=x1 

rpxsrpxl 
go  to  180 
c 
c 

c  MODEs 3  FIX  X,  VARY  THETA  AND  RPX  TO  OBSERVE  BEAM  FROM  DIFFERENT 

c  POINTS  ALONG  A  LINE  PARALLEL  TO  THE  LINK  OPTICAL  AXIS, 

c  NOTE  THAT  AS  THETA  IS  NEAR  ZERO  OR  PI,  THE  RANGE  TO 

c  THE  SR  BECOMES  VERY  LARGE, 

c 

80  thetasonedeg+phi/2. 

rpxlsrpx 

c  COMPUTE  INCREMENT  OF  THETA 

dangs(pi-phi-22*onedeg)/l6 . 


ALWAYS  LOOK  AT  PORTION  OF  BEAM  AT  RPX1  METERS  AWAY  FROM  XMTR 
do  110  1=1,40 

AVOID  DIVIDE  CHECK  IN  COMPUTING  RPX 
if  (abs(theta-pi/2.) .lt.onedeg)  go  to  90 
rpx=x/tan( theta) +rpx1 
go  to  100 
rpx=rpx1 

rs=sqrt(rpx1**2+x**2) 

rt=sqrt(rpx**2+x**2) 
angtr= atan2 ( x , rpx ) 
angrec=atan2 ( x , ( rpx-rl ) ) 

gamp=acos(  ( rpx*cos(  dp )  +x*sin(  gamint )  *sin(dp ) )  /rt ) 
hs=dsqrt ( reht  **2+rt  **2+2 . *rt  *dco  s( gamp) ) -re 
call  comtot  (comp,nret) 

WRITE  OUTPUT 
td=theta*r2d 

if  (nout.ge.1)  write  (nout,190)  td,comp,prtr,prec,pa 

STORE  THETA,  SNDB 

xint(i)=td 
yint(i)=comp 
INCREMENT  BY  ONE  DEGREE 
delta=onedeg 

if  (i.gt.9.and.i.lt.26)  delta=dang 

the  ta=  the  ta+del ta 

if  ( theta. gt. 3-1 241 )  go  to  120 

continue 

rpx=rpx1 

go  to  180 


*  add  mode  6  * 

MODE=6  PROBABILITY  OF  BIT  ERROR 

5  rt=sqrt(rpx**2+x**2) 
angtr = atan2 ( x , rpx ) 
angrec=atan2( x, ( rpx-rl) ) 

gamp=acos( (rpx*cos( dp) +x*sin( gamint )*sin(  dp)) /rt) 

hs=dsqrt(reht**2+rt**2+2.*rt*dcos(gamp))-re 

write  (nout,230)  rpx, x, theta 

CALCULATE  SIGNAL  POWER 

call  comtot(comp,nret) 

do  126  i=1,npts 

power0( i) =ps*form0( i) 

powerl ( i) =ps*form1 ( i) 


i 
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126 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

130 

c 


c 

135 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 


c 

c 


continue 
call  back 
call  apertr 

call  error( nf lag, bound 1 ,bound2,bound3,bound4) 
if  (nflag.eq.3)  write  (6,240) 

if  (nflag.eq.1 .or. nflag.eq.3)  write  (nout,250)  bound 1 , bound 2 
if  (nflag.eq. 2. or .nflag.eq.3)  write  (nout,260)  bound3,bound4 
go  to  1 80 

»«  ITERATIVE  ALGORITHM  TO  FIND  CONTOURS  ««» 

THIS  IS  BASICALLY  A  NEWT0N-RAPHS0N  SECANT  METHOD  MODIFIED  TO 
ALLOW  FOR  AN  EXTREMELY  SENSITIVE  FUNCTION.  IT  ONLY  ALLOWS 
CONVERGENCE  FOR  ROOTS  WHERE  THE  SLOPE  IS  NEGATIVE 
(SEE  DOCUMENTATION) 

MODE=4  ISOPHOTES  LOOKING  AT  THE  TRANSMITTER 

MODE=5  TOTAL  POWER  AVAILABLE  AT  SR  LOCATION 

dangr2*onedeg 

tdang=2.96 *onedeg 

angtr=-onedeg 

kk=0 

do  170  i=1 ,124 
nret=0 

angtr=angtr+dang 

COMPUTE  THETA  INCREMENT  TO  SPACE  DATA  POINTS  APPROPRIATELY  IN  X, 
RPX  COORDINATES 

dang= . 03 1 58826  « ( angtr ) «*. 7 1 53  35  99 
if  ( angtr. gt.1 .56)  dangstdang 


MAKE  A  CALCULATED  FIRST  GUESS  AT  THE  RIGHT  RS 

NOTE  HERE  RS=RT  SINCE  WE  ARE  LOOKING  AT  THE  TRANSMITTER 

rs=rl*(  .2-*-cos(angtr/2.) ) 

COMPUTE  SR  LOCATION  COORDINATES  X,RPX 

x=rs*sin(angtr) 

rpxsrs^cosC  angtr ) 

angrec=atan2 ( x, ( rpx-rl ) ) 

gampsdp-acos( sqrt ( rpx**2+( x*sin(gamint ) ) **2) /rs ) 
hstdsqrt ( reht  #*2+rs**2+2 . #rs*reht  *dcos( gamp) ) -re 

COMPUTE  INITIAL  VALUE  FOR  ITERATION 
thetasangtr+phi/2 . 


if  (mode.eq.4)  call  comtot  (eompb4 ,nret) 
if  (mode.eq.5)  call  mode5  (compb4,nret) 

IF  POWER  IS  ZERO,  SKIP  TO  NEXT  ANGLE 
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c 

c 

c 


c 

c 


c 

c 

c 

c 

c 


c 


140 

c 

c 


& 


if  (nret.eq.1)  go  to  135 

rsb4=rs 

rs=rsb4*1 .10 

ALLOW  NLOOP  TRIES  FOR  CONVERGENCE 
nloop=20 

do  140  ii=1,nloop 
x=rs*sin(angtr) 
rpx=rs*cos(angtr) 
angrec=atan2( x, ( rpx-rl) ) 

gamp=acos( ( rpx*cos( dp ) +x*sin(gamint ) *ain( dp ) ) /rs ) 
hssdsqrt ( reht  ••  2+r o  *•  2+2 . *rs  *reht  •dco  s ( gamp ) ) -r e 
theta=angtr+phi/2. 

if  (mode.eq.4)  call  comtot  (comp,nret) 
if  (mode.eq.5)  call  mode5  (comp, nr et) 

IF  POWER  IS  ZERO,  SKIP  TO  NEXT  ANGLE 

if  (nret.eq.1)  go  to  135 

CONVERGENCE  TEST 

if  (abs( comp-d comp (mcomp)) .It. .2)  go  to  150 
slope = ( rs-rsb4 ) / ( comp-compb4 ) 
rsnew= ( rs- ( comp-d  comp( mcomp ) ) •slope ) 

SET  TO  ONE  HALF  PREVIOUS  GUESS  IF  THE  GUESS  IS  NEGATIVE 

if  (rsnew.le.O.)  rsnewsrs/2. 

rsb4=rs 

rs=rsnew 

compb4=comp 

continue 

DID  NOT  CONVERGE  IN  NLOOP  TRIES 
SET  FLAG  FOR  CONVERGENCE  WARNING 
note=note+1 
go  to  160 

CHECK  FOR  SLOPE  AT  ROOT 

if  (slope. gt.0.)  go  to  135 

xint(i)=rpx 

yint(i)=x 

h(i)=ii 

if  (nout.ge.1 .and. mode.eq.4)  write  (nout,200)  x,rpx,h(i) ,prtr,prec 
i  pa 

if  (nout.ge.1 .and. mode.eq.5)  write  (nout,200)  x,rpx,h(i) ,prt,pre,p 
at 

if(hs.lt.O)  kkrl 


& 


continue 

if(kk.eq.l)  write  (6,220) 

np=i 

return 

format  (2x,2(3x, Ipel 1 .4) ,7x,4(3x, Ipel 1 .4) ) 

format  (2x,2(3x, Ipell .4),2x,0pf3.0,2x,4(3x,1pe11 .4)) 

format  (5x,"link  beam  hit  ground  at  a  range  of  ", Ipell .3, "meters") 

format  (2x, "warning  —  part  of  the  contour  is  below  sea  level  ", 

"altitude.",/,13x,"keep  this  in  mind  when  you  interpret  the  ", 

"output . " ) 

format  (/,6x,"SR  location:", /,6x,"rpx  =",1pe10.1,"  x  =",1pe10.3, 

"  theta  =",1pe10.3,/) 

format  (6x, "receiver  noise  is  a  combination  of  shot  and  thermal  " 
"or  excess  noise  -  ",/ ,6x, "bounds  are  not  absolute",/) 
format  (6x,"shot  noise  limited  performance  -  ",1pe8.2, 

"  <  Pr(e)  <  ",1pe8.2) 

format  (6x, "thermal  noise  limited  performance  -  ",1pe8 .2, 

"  <  Pr(e)  <  ", 1pe8.2) 
end 

subroutine  mode5  (eomp.nret) 

INTEGRATES  TO  FIND  TOTAL  POWER  AVAILABLE  FROM  LINK  AT  A  POINT 
DEFINED  BY  X,RPX 

ANGTOT  -  TOTAL  ANGLE  SUBTENDED  BY  LINK 
NTHETA  -  NUMBER  OF  STEPS  OF  INTEGRATION 
DTHETA  -  INCREMENT  OF  THETA 
ANGTR  -  THETA  TO  XMTR 

COMP  -  POWER  OR  S/N  CONTRIBUTION  FROM  LINK 
SUM  -  SUM  OF  COMP  CONTRIBUTIONS  FROM  EACH  THETA 
NRET  -  FLAG  TO  INDICATE  THAT  C0MP=0 

common  /  ldata  /  rl,alam,rpx, theta, x,angtr,angrec,gamint,bw 
common  /  srdata  /  asr ,hs,phi,phiaz ,dphi 
common/ parts/pa , prtr , pr ec , pa t , prt , pre 

COMPUTE  TOTAL  ANGLE  SUBTENDED  AT  SR 
angtot=angrec-angtr 

COMPUTE  NUMBER  OF  STEPS  USED  IN  INTEGRATION 
nthetasamaxK (angtot/3 .4+1 .) ,2.) 
ntheta=ntheta#2+1 
dtheta=angtot/ntheta 

USE  SIMPS ON*S  RULE  FOR  INTEGRATION 
NTHETA  MUST  BE  ODD 


c 


suo=0, 

thetasangtr 

c  COMPUTE  BEAM  POWER  ONLY;  ADD  XMTR  AND  RCVR  LATER 

mp=2 

do  10  nsl,ntheta 
c 

c  COMPUTE  POWER 

call  comtot  (comp, nr et) 
c  NORMALIZE  CONTRIBUTION  TO  1/RAD 

comp= pa/ phi 
coefs2*(2-mod(n,2) ) 
if  (n.eq.1 .or.n.eq.ntheta)  coefsl . 
sum=comp*coef+sum 
thetas theta+dtheta 
10  continue 

sumsdtheta/3 • *sum 
pats sum 
c 

C  FINAL  INTEGRAL  VALUE  IS  RETURNED  AS  COMP  TO  FIND  ISO-CONTOUR 

c  USING  MODE  4  ITERATION  ALGORITHM 

c 
c 

c  TRANSMITTER  CONTRIBUTION 

c 

mp=3 

thetas angtr 

call  comtot  (comp,nret) 
sumssum+prtr 
prtsprtr 
c 

c  RECEIVER  CONTRIBUTION 

c 

mp=4 

thetasangrec 
call  comtot  (comp, nr et) 
stuns  sum+prec 
presprec 
mp=l 
c 

if  (sum.eq.O)  go  to  20 
nretsO 
c 

c  CONVERT  TO  DB 

c 

comps  1 0  *alog 1 0 ( sum ) 
go  to  30 
c 

c  NRET  IS  FLAG  FOR  NO  POWER 

20  nretsi 
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c 

comp=-200. 

30  return 

end 
c. 

subroutine  oomtot  (comp, nr et) 
c 

c  COMTOT  COMPUTES  THE  POWER  FROM  THE  LINK  BY  CALLING  THE 
c  ROUTINES  WHICH  COMPUTE  THE  POWER  FROM  ATMOSPHERIC 

c  SCATTERING,  THE  RECEIVER,  AND  THE  TRANSMITTER.  IT  RETURNS 
c  VARIABLE  COMP  WHICH  IS  EITHER  POWER  (DBW)  OR  S/N  (DB),  AS 

C  SELECTED.  IF  COMP  IS  ZERO,  NRET  IS  RETURNED  WITH  A  VALUE 

c  OF  1. 

c 

c  THTMAX  -  MAXIMUM  THETA  FOR  FIELD  OF  VIEW  (FOV) 

C  THTMIN  -  MINIMUM  THETA  FOR  FIELD  OF  VIEW  (FOV) 

o  PR  SUM  OF  POWER  FROM  DESIRED  SOURCES 

c  PA  POWER  CONTRIBUTION  FROM  ATMOSPHERE 

C  PRTR  -  POWER  CONTRIBUTION  FROM  TRANSMITTER 

c  PREC  -  POWER  CONTRIBUTION  FROM  RECEIVER 

c  PS  SIGNAL  POWER  USED  FOR  S/N  CALCULATION 

c 

common/  flags  /  mode, mcomp,mp, lam, modesw,lunit,nout,istog,iotype, 
4  irtype,ihet,ibflag,iw 

common/  ldata  /  rl,alam,rpx, theta, x,angtr,angrec,gamint,bw 
common/  srdata  /  asr ,hs,phi,phiaz,dphi 
common/ parts/pa , prtr , prec , pat , prt , pre 
c  *  dark!  4  ptherm  replace  pnep  add  g  * 

common/  sndata  /  bwr, eta, f,em,pb,ps,darki, ptherm, snpndb,sndb,xm, 

4  bwopt,nflg,g 

data  epsi/1.e-4/ 
phio2=phi/2. 
c 

thtmax= the  ta+phio2  +ep  si 
thtmin=theta-phio2-epsi 
pr=0. 
pa=0. 
prtr=0 . 
prec=0. 
c 

c  MP  —  COMPUTE  FLAG  USED  TO  DETERMINE  WHICH  SOURCES  TO  INCLUDE 
c  1  —  SUM  OF  ALL  SURCES 
c  2  —  ATMOSPHERIC  CONTRIBUTION  ONLY 

c  3  —  TRANSMITTER  CONTRIBUTION  ONLY 

c  4  —  RECEIVER  CONTRIBUTION  ONLY 
c 

if  (mp.gt.2)  go  to  10 
call  beam  (pa) 
pr=pa+pr 

if  (mp.eq.2.or .mp.eq.4)  go  to  20 


10 
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o 

c  CHECK  TO  SEE  IF  TRANSMITTER  IS  IN  FOV,  IF  SO,  CALL  TSCAT 
c 

if  (angtr.ge.thtmin.and.angtr.le.thtmax)  call  tscat  (prtr) 
pr=pr+prtr 

20  if  (mp.eq.2.or .mp.eq.3)  go  to  30 
c 

c  CHECK  TO  SEE  IF  RECEIVER  IS  IN  FOV,  IF  SO,  CALL  RSCAT 
c 

if  (thtmax.ge.angrec.and.thtmin.le.angrec)  call  rscat  (prec) 
c 

pr=pr+prec 

30  if  (pr.le.O)  go  to  40 

comp= I0.*alog10(pr) 
c 

if  (mcomp.eq.1)  go  to  50 
c 

c  COMPUTE  S/N  IF  DESIRED 

c 

psspr 
call  st on 
comps sndb 
go  to  50 

c  POWER  WAS  ZERO;  SET  FLAG  AND  RETURN 

40  nretsl 

c 

comps -200. 

50  return 

end 
c. 

subroutine  stog  (comp,ptstog,prstog, pastog,nret) 
e 

c  COMPUTES  POWER  FOR  THE  CASE  OF  A  VERTICAL  SPACE- TO- GROUND  LINK, 
c 

c  «•  SEE  DOCUMENTATION  FOR  LIMITATIONS  **« 

c 

c  WARNING:  THE  EFFORT  EXPENDED  ON  THIS  PORTION  OF  THE  PROGRAM  WAS 
c  MINIMAL  COMPARED  TO  THE  NARROWBEAM  PORTIONS,  SO  THAT 

c  THE  RESULTS  OF  SPACE  TO  GROUND  CASES  SHOULD  BE 
c  CAREFULLY  SCRUTINIZED, 

c 

c  VARIABLES  (UNITS  ARE  MKS  SYSTEM) 

c 

c  NVEL  -  NO.  OF  VERT  ELEMENTS  IN  BEAM 

c  AVEL  -  AREA  OF  A  VERT.  ELEMENT 

c  SVEL  -  WIDTH  OF  A  VERT.  ELEMENT 

C  NDOWN  -  NO.  OF  VERT.  ELEMENTS  IN  X-DIR. 

C  NCR OS  -  NO.  OF  VERT  .  ELEMENTS  FROM  CENTER  IN  Y-DIR. 

c  XB  -  X  COORDINATE  IN  LINK  BEAM  CENTERED  COORDINATES 

o  YB  -  Y  CORRDINATE  IN  LINK  BEAM  CENTERED  COORDINATES 
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c 

RVEL 

- 

DIST.  OF  VERT.  ELEMENT  FRCM  CENTER  OF  BEAM 

c 

c 

RB 

_ 

RADIUS  OF  LINK  BEAM  TO  1/E**2  POINT 

c 

XTEMP 

- 

PERP.  DISTANCE  FROM  SR  TO  CENTER  OF  BEAM 

c 

X 

- 

DIST.  FROM  SR  TO  VERTICAL  ELEMENT 

c 

RPX 

- 

DIST.  FROM  BISECTOR  OF  BEAM  TO  XMTR 

c 

PHIA2 

- 

FOV( AZIMUTH) 

c 

RL 

- 

LINK  RANGE 

c 

HS 

- 

ALTITUDE  OF  SR 

c 

HR 

- 

ALTITUDE  OF  RCVR 

c 

HEFF 

- 

EFFECTIVE  ALTITUDE  OF  XMTR 

c 

PT 

- 

EFFECTIVE  POWER  OF  SOURCE 

c 

GRNDI 

- 

FACTOR  FOR  DETERMING  EFFECTIVE  POWER  (W/M**2) 

c 

WEIGHT 

- 

WEIGHTING  FACTOR  FOR  POSITON  IN'  BEAM  (FUNCTION) 

c 

c 

ANGTR 

ANGLE  TO  XMTR 

c 

ANGREC 

- 

ANGLE  TO  RCVR 

c 

NUMTOT 

- 

TOTAL  NUMBER  OF  INCREMENTAL  VOLUMES 

c 

KOUNT 

- 

NO.  OF  VERT.  ELEMENTS  IN  INTERCEPTED  VOLUME 

c 

c 

XCLOS 

DISTANCE  TO  CLOSEST  INTERCEPTED  VERT.  ELEMENT 

c 

HCLOS 

- 

ALTITUDE  OF  TOP  OF  CLOSEST  INTERCEPTED  ELEMENT 

c 

HCLSDF 

- 

SUBTENDED  LENGTH  OF  CLOSEST  VERT  ELEMENT 

c 

XDIS 

- 

DISTANCE  TO  MOST  DISTANT  INTERCEPTED  VERT.  ELEMENT 

c 

HDIS 

- 

ALTITUDE  Of  TOP  OF  MOST  DISTANT  INTERCEPTED  ELEMENT 

c 

HDISDF 

SUBTENDED  LENGTH  OF  MOST  DISTANT  VERT.  ELEMENT 

c 

c 

FACTOR 

SYMMETRY  FACTOR 

c 

SUMP 

- 

RUNNING  SUM  OF  POWER  CONTRIBUTIONS 

c 

COMP 

- 

POWER  CONTRIBUTION 

c 

c 

common/  flags  /  mode, mcomp,mp, lam, modesw,lunit,nout,istog,iotype, 
&  irtype,Ihet,ibflag,iw 

common/  tdata  /  blt,dt,ht,phit,pt,rb,grndi,bdrt,sigj,sigt 
common/  rdata  /  blr,dr,hr ,gl,bdlr 
common/  srdata  /  asr ,hs,phi,phiaz ,dphi 

common/  ldata  /  rl,alam,rpx, theta, x,angtr,angreo,gamint,bw 
common/  stgout  /  nvel,svel,avel,ndown,ncros,numtot,hvnear,hvfar, 

&  xdls, hdls, hdisdf ,xclos, hclos, hclsdf ,kount 

data  epsi/I.e-V 
c 

c  RB  IS  1/E»*2  POINT  OF  BEAM.  WEIGHT(A)  IS  THE  POWER  DISTRIBUTION 

c  OFF  THE  AXIS  OF  THE  BEAM.  A  GAUSSIAN  PROFILE  IS  ASSUMED, 

c 

weight(a)=exp(-2.*(a/rb)#*2) 

c 

c  STORE  X 

kount=0 
xtemp=x 
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rltempsrl 
hstempshs 
httempsht 
ptempspt 
thtemps theta 

CHECK  TO  SEE  IF  THETA<PHI/2 

if  (theta. It. phi/2.)  theta=phi/2.  +  epsi 

COMPOTE  GRNDI  AND  RB  IF  IBFLAGsl 

if  (ibflag.eq.2)  go  to  10 
call  stbeam  (rbeam,grndir) 
rbsrbeam 
grndi=grndir 


COMPUTE  TANGENT  OF  AZ  FOV  HALF-ANGLE-TP2 
tp2=tan(phiaz/2. ) 

NUMBER  OF  VERTICAL  ELEMENTS  IN  LINK  BEAM 
nvelsIOO 

AREA  OF  VERTICAL  ELEMENT 
avel=4 .*rb*xtenp*tp2/nvel 
WIDTH  OF  VERTICAL  ELEMENT 
svel=sqrt(avel) 

NUMBER  OF  VERTICAL  ELEMENTS  ACROSS  BEAM 

ndown=2.*rb/svel+1 

NUMBER  FROM  CENTER  IN  YB  DIRECTION 

ncros=(xtemp+rb)*tp2/svel+1 

INITIALIZE  INTEGRAL 
sumps 0. 

SET  SYMMETRY  FACTOR  FOR  CENTER  RCW  OF  VERTICAL  ELEMENTS 
factors  1 . 

LOOP  TO  COMPUTE  FOR  EACH  VERTICAL  ELEMENT 

do  50  nysi.ncros 
do  30  nxsl ,ndown 
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C  POSITION  IN  LINK  BEAM  CENTER  COORDINATES 
c 

xb=(nx-ndown/2)*svel 
yb=(ny-1 )*svel 
rvel=sqrt(xb**2+yb»*2) 
c 

C  TEST  IF  THE  ELEMENT  IS  INSIDE  THE  1/E««2  PTS. 
c 

if  (rvel.gt.rb)  go  to  30 

G 

C  COMPOTE  SR  FOV  BOUNDS  FOR  TEST 
c 

x=sqrt((xtemp-xb)**2+yb**2) 
testp=atan( yb/x) *2 . 
if  (testp.gt.phiaz)  go  to  40 
c 

c  VERTICAL  ELEMENT  IS  IN  FOV,  SO  COMPUTE  POWER 
c 

hef f=ha+x/tan( theta-phi/2 . ) 
rl=hef f-hr 

call  trans  (hr ,heff,rl,tb) 
c 

c  CALCULATE  POWER  OF  EFFECTIVE  SOURCE 

c 

pt =grndi*weight ( rvel ) *avel/ tb 
ht=heff 
rpx=heff-hs 
c 

C  CALCULATE  ANGTR  AND  ANGREC  FOR  BEAM,  ANGTR  IS  ANGLE  TO 
c  EFFECTIVE  SOURCE 

c 

angtr= the  ta-phi/ 2 . 
angrec=3.l4l59-atan(x/hs) 
c 

C  CALL  BEAM  FOR  POWER  CONTRIBUTION  OF  VERTICAL  ELEMENT 
c 

call  beam  (comp) 
sump=sump+comp*f actor 
kount=kount+factor 
c 

c  COMPUTE  TOTAL  NUMBER  OF  INCREMENTAL  VOLUMES 
c 

numtot=kount»phi/dphi 

c 

c  CALCULATE  PARAMETERS  TO  MOST  DISTANT  ELEMENT 
if  (nx.ne.1 .or.ny.ne.1)  go  to  20 
xdis=x/sin( theta) 
hdis=hef f 

hdisdf=hvnear-hvfar 


c 
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CALCULATE  PARAMETERS  TO  CLOSEST  ELEMENT 

if  (nx.ne.(ndown-2) .or.ny.ne.1 )  go  to  30 

xclos=x/sin( theta) 

holosshef f 

hcl  sd  f  s  hv  ne  ar-  hv  f  a  r 

continue 

SET  SYMMETRY  FACTOR  FOR  ROWS  OFF  SR  OPTICAL  AXIS 

factors 2. 
continue 
past ogs sump 

xsxtemp 

rlsrltemp 

hsshstemp 

htshttemp 

ptsptemp 

thetas thtemp 

TRANSMITTER  CONTRIBUTION 

INITIALIZE  PARAMETERS  FOR  CALL  TO  TSCAT 

ptstogsO. 

angtrsatan2(x,rl-hs) 

CALL  TSCAT  IF  TRANSMITTER  IS  IN  FOV  . 

if  ( th@ta.ge .angtr-phi/2 .and . the ta. le . angt r+phi/2 . ) 
call  tscat  (pt's'tog) 

RECEIVER  CONTRIBUTION 

INITIALIZE  PARAMETERS  FOR  CALL  TO  RSCAT 

prstogsO. 

if  (gl.eq.hs)  go  to  60 
angrecsatan2(x,gl-hs)  .  ‘;-o 

go  to  70 
angrecsl .570796 

CALL  RSCAT  IF  RECEIVER  IS  IN  FOV 

if  ( the  ta . ge . angr ec -phi/ 2 . and . the  ta. le . angt  r+phi/ 2 . ) 
call  rseat  (prstog) 

SUM  FOR  TOTAL  POWER 


compsprstog+ptstog+pastog 


c 


return 

end 


c. 

subroutine  stbeam  (rbeam,grndir) 
c 

c  THIS  SUBROUTINE  CALCULATES  THE  RADIUS  OF  THE  BEAM 
c  AT  THE  GROUND  AND  THE  PEAK  INTENSITY, 
c 

common/ tdata/bl t , dt , ht , phit , pt , rb , grndi , bdrt , sig j , sigt 
common/ ldata/rl , alam , rpx , the  ta , x , angtr , angrec , gamint , bw 
common/ rdata/blr , dr , hr , gl , bdlr 

data  onedeg, pi, r2d/. 017453 2925, 3. 141 592654, 57 .29577951/ 
c 

c  CALCULATE  TURBULENCE  OF  ATMOSPHERE 

\ 

c 

call  sigmat  (ht, hr ,rl , alam, gl, sigt) 
c 

c  CALCULATE  RADIUS  OF  BEAM 

c 

r2=4 . *rl**2*( (phit/2 . ) **2+sigj**2+sigt**2) 
rbeam=sqrt(r2) 
c 

call  trans  (gl, 100000. ,100000. -gl,tstog) 
c 

c  CALCULATE  EQUIVALENT  IR RADIANCE 

c 

grndirs . 86  5  *pt  *tst  og/ ( . 432  5*pi *r2 ) 

return 

end 

» 

c. 

subroutine  sigmat  ( ht, hr, rl, alam, gl, sigt) 
external  cnsq 

common/ flags/mode , mcomp , mp, lam , modesw , lunit , nout , is tog , io type , 

&  irtype,ihet,ibflag,iw 

data  hatm/1 00000./ 
c 

c  THIS  ROUTINE  COMPUTES  THE  HALF  ANGLE  BE AMSPR EAD ( SIGT ) 
c  DUE  TO  TURBULENCE.  IW  IS  A  TURBULENCE  PARAMETERUSED  AS  FOLLOWS 
c  1  —  sever!  TURBULENCE 

c  2  —  NOMINAL  TURBULENCE 

c  3  —  MILD  TURBULENCE 

c 

c  FOR  REFERENCE  SEE  *A  SIMPLIFIED  PROPAGATION  MODEL  FOR  LASER 
c  SYSTEM  STUDIES*.  AFWL-TR-72-95( REV) ,  APRIL  1973 

c 

c  USE  NSTEP  NUMBER  OF  STEPS  TO  INTEGRATE  ALONG  PATH  LENGTH 
nstep=50 
sig=0. 

deltaz=(hatm-gl)/nstep 
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c  MODIFIED  FOR  VERTICAL  USE 
sinphi=-1 . 
do  10  j=1,nstep 
aj=j 
c 

c  WEIGHT  CLOSEST  PORTIONS  TO  APERTURE  HIGHEST 
c 

rna j=1 .-aj*deltaz/rl 
z=deltaz*j+(rl-hatm) 
zl =deltaz*( j-1 ) +(rl-hatm) 

c  HL  AND  HU  ARE  THE  HEIGHT  ABOVE  TERRAIN  AT  THE  BEGINNING  AND 
c  END  OF  EACH  INCREMENT  ALONG  THE  PROPAGATION  PATH. 
hl=z»sinphi+ht 
hu=z1*sinphi+ht 

call  qglO  (hl-gl,hu-gl,cnsq,deltaz,y) 
sig=rnaj**1 .666*y+sig 
10  continue 

sigt=(( (2.06/alam)**.333) *sig)**.6 
return 
end 
c. 

subroutine  qglO  (bl,bu,fctfdeltaz,y) 
c  SUBROUTINE  QG1 0  COMPUTES  INTEGRALS  OF  THE  FORM 

c  (FCT(X) ,  SUMMED  OVER  X  FROM  BL  TO  BU) 

c 

c  USAGE 

c 

c  CALL  QG1 0( BL, BU, FCT,D£LTAZ , Y) 

C  PARAMETER  FCT  REQUIRES  AN  EXTERNAL  STATEMENT 

c 

c  DESCRIPTION  OF  PARAMETERS 

c  BL  -  THE  LOWER  BOUND  OF  THE  INTERVAL 

c  BU  -  THE  UPPER  BOUND  OF  THE  INTERVAL 

c  FCT  -  THE  NAME  OF  AN  EXTERNAL  FUNCTION  SUBPROGRAM  USED 

c  Y  -  THE  RESULTING  INTEGRAL  VALUE 

c 

c  SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED 

c  THE  EXTERNAL  FUNCTION  SUBPROGRAM  FCT(X)  MUST  BE  FURNISHED 

c  BY  THE  USER..  £ 

c 

c  METHOD 

c 

c  THE  EVALUATION  IS  DONE  BY  10-POINT  GAUSS  QUADRATURE 
c  FORMULA  WHICH  INTEGRATES  POLYNOMIALS  UP  TO  DEGREE  19 

c  EXACTLY 

c 

c  FOR  REFERENCE  SEE 

c  V.1 .KRYLOV, APPROXIMATE  CALCULATION  OF  INTEGRALS 

c 

c 


if  ((bu.eq.bl))  go  to  10 
go  to  20 

y=fct(bl)*deltaz 

return 

a= .5*(bu+bl) 

b=bu-bl 

c=.4869533*b 

y= .03333567* ( f ct ( a+c ) +f ct ( a-c ) ) 
c=. 43253 17*b 

y = y+ .  07  47  256  7 *  ( f  ct  ( a+c )  +f  ct  ( a-  c ) ) 
e=.3397048«b 

y=y+.1095432»(fct(a+c)+fct(a-c)) 

c=.2l66977»b 

y=y+.1346334*(fct(a-*-c)+fct(a-c)) 
c=. 0744371 7*b 

y=del taz*  ( y+ . 1 47762 1 • ( f ct ( a+c ) +f ct ( a-c ) ) ) 

return 

end 

function  cnsq  (h) 

ATMOSPHERIC  STRUCTURE  CONSTANT  IN  M«*(2/3) 

common/ f 1 ags/mode , mcomp , op , lam , modesw , lu  ni t , nout , is  tog , io type , 
irtype , ihet, ibf lag, iw 

if  (h.gt.1.0)  go  to  40 

SET  CNSQ  FOR  HEIGHT  ABOVE  TERRAIN  LESS  THAN  ONE  METER 

go  to  (10,20,30),  iw  , 

BAD  WEATHER  CONDITIONS 

cnsq=2.85e-13 

return 

NOMINAL  WEATHER  CONDITIONS 

cnsq=1 .e-13 

return 

GOOD  WEATHER  CONDITIONS 

cnsq=8.5e-15 

return 

SET  CNSQ  FOR  ALTITUDES  LESS  THAN  ONE  METER 

go  to  (50,90,1 00) ,  iw 

BAD  WEATHER  CONDITIONS 
if  (h.gt. 100.0)  go  to  70 
if  (h.gt. 10.0)  go  to  60 
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cnsq=2.9e-13#h*«(-.6993) 

return 

cnsq=9.496e-13#h«*(-1 .214) 
return 

if  (h.gt.1 .0e04)  go  to  80 
cnsq=2.56e-12»h«*(-1 .4386) 
return 

if  (h.gt. 1 .5e4)  go  to  90 

cnsq=2.0e-l6 

return 

NOMINAL  WEATHER  CONDITIONS 
cnsq=2.0e-l6 

if  (h.le.1 1600.. or. h.ge. 12400.)  cnsq=1e-13*h»*(-1 .07535) 
return 

GOOD  WEATHER  CONDITIONS 
if  (h.gt.2.5e3)  go  to  120 
if  (h.gt. 20.0)  go  to  110 
cnsq=8. 586e-1 5 *h**( -0.4444) 
return 

cnsq=1 .51e-13*h*«(-1 .396) 
return 

if  (h.gt.1.5e4)  go  to  90 

cnsq=3.0e-l8 

return 

end 

subroutine  beam  (pa) 

BEAM  COMPUTES  THE  POWER  FROM  THE  LINK  BEAM  DUE  TO  ATMOSPHERIC 
SCATTERING 

RL  LINK  RANGE 

RS  RANGE  FROM  SCATTERING  VOLUME  TO  S 

RV  RANGE  FROM  XMTR  TO  SCATTERING  VOLUME 

HT  XMTR  HEIGHT 

HR  RCVR  HEIGHT 

HS  SURVEIL LANGE  RCVR  HEIGHT 

HV  SCATTERING  VOLUME  HEIGHT 

THETA  SCATTERING  ANGLE  (OFF-AXIS  ANGLE) 

PHI  TOTAL  FOV 

DPHI  INCREMENTAL  FOV 


NRET 


FLAG  TO  INDICATE  THAT  COMP=0 


oommo n/ flags /mode, mcomp,mp, lam, modesw, lunit ,nout,istog, io type , 
irtype , ihet , ibf lag , iw 

common/  tdata  /  blt,dt,ht,phit,pt,rb,grndi,bdrt,sigj,sigt 
common/  rdata  /  blr,dr,hr,gl,bdlr 
common/  srdata  /  asr ,hs,phi,phiaz,dphi 

common/  ldata  /  rl,alam,rpx, theta, x, angtr, angrec, gamin t,bw 
darki  &  ptherm  replace  pnep  add  g  * 
common/  sndata  /  bwr, eta, f,em,pb,ps, darki, ptherm, snpndb,sndb,xm, 
bwopt,nflg,g 

common/  stgout  /  nvel ,svel ,avel ,ndown,ncros,numtot,hvnear, 
hvfar,xdis,hdis,hdisdf ,xclos,hclos,hclsdf ,kount 
double  precision  re,reht,rehr 

data  re/6.3 1131d6/ 
data  epsi/1.e-6/ 


pa=0. 

phio2=phi/2. 

reht=re+ht 

rehr=re+hr 

CALCULATE  RVNEAR, RVFAR 

rvnear=rpx-x/ tan ( the  ta-phio2 ) 
rvfar=rpx-x/tan(theta+phio2) 

RSNEAR,RSFAR  ARE  RANGES  TO  RVNEAR, RVFAR  FROM  SR 

rsnear=x/sin( the  ta-phio2 ) 
rsfar=x/sin( theta+phio2) 

CALCULATE  ALTITUDES,  HVNEAR,  HVFAR 

hvnear=dsqrt ( reht  **2+( dble( rvnear ) ) »*2+dble ( rvnear ) *( rehr**2-reht* 
•2-(dble(rl))»«2)/dble(rl))-re 

hvfar=dsqrt( reht **2+(dble(rv far) )B,2+dble(rvfar)*(rehr**2-reht**2- 
(dble( rl) ) **2) /dble( rl ) ) -re  . 

CALCULATE  T1 ,T2  TO  SEE  IF  PATH  DIFFERENCE  IN  TRANSMITTANCE  IS 
IMPORTANT 

call  trans  (ht,hvnear, rvnear, tin) 
call  trans  (hvnear,hs,rsnear,t2n) 
call  trans  (ht,hvfar, rvfar.tif) 
call  trans  (hvfar,hs,rsfar,t2f) 


COMPARE  TRANSMITTANCE  VARIATION  DUE  TO  SCATTERING  VOLUME  PATH 
DIFFERENCE  :  TN=  NEAR  PATH  TRANSMITTANCE 
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c  TF=  FAR  PATH  TRANSMITTANCE 

c 

tn=t1n#t2n 

tf=t1f*t2f 

tp=(tn+tf )/2. 

hv= ( hv  ne  ar+hv  f ar ) / 2 . 

tps=  tp*al fasc ( hv ) 

it f lag= 1 

c  CHECK  FOR  TRANSMITTANCE  DIFFERENCE 

if  (abs(1 ,-tn/tp) .It. .025)  itflagsO 
c 

c  ITFLAGsO  MEANS  TRANSMITTANCE  NEED  NOT  BE  COMPUTED  FOR  EVERY  DPHI 
c 

c  COMPUTE  DPHI  TO  ACHIEVE  DESIRED  ACCURACY  OUT  OF  FTHETA 
c 

call  delphi  (theta, phi, dphi) 
c 

C  NDPHI  =  NUMBER  OF  ELEMENTAL  FOV.  ROUND  DOWN 
c 

ndphi=phi/dphi 

dphisphi/ndphi 

c 

c  LOOP  TO  COMPUTE  ELEMENTAL  CONTRIBUTIONS  FROM  DPHI  ELEMENTS 
c 

do  20  i=1,ndphi 
thetal =theta-phio2+dphi*( i- .5 ) 
c 

c  CHECK  TO  SEE  IF  PAST  LINK  RECEIVER 
c 

if  (thetal .gt.angrec)  go  to  30 
rsl sx/sin( thetal ) 

*  if  (itflag.eq.O)  go  to  10 

C  COMPUTE  TRANSMITTANCE  IF  REQUIRED  FOR  EACH  DPHI 
c 

c  COMPUTE  RANGE  TO  ELEMENTAL  VOLUME 

rvl srpx-x/tan( thetal ) 

c  COMPUTE  ALTITUDE  OF  ELEMENTAL  VOLUME 

hvl sdsqrt( reht **2+(dble( rvl ) )#*2-«lble( rvl ) *( rehr**2-reht**2- 
&  (dble(rl) )**2)/dble(rl) )-re 

call  trans  (ht,hv1 ,rv1 ,t1) 
call  trans  (hvl ,hs,rs1 ,t2) 
tpsstl •t2*alfasc(hv1 ) 
c 

10  continue 

e 

c 

c  COMPUTE  THE  SUM  FOR  POWER  CALCULATION 

c 

fthsfthr  ta( thetal ) 
pastps-f th/sin( thetal ) /rsl +pa 


20  continue 

c  COMPUTE  POWER  AT  SR  FROM  BEAM  SCATTER 

30  pa=pa#pt*asr*dphi 

return 
end 
c. 

subroutine  trans  (h1,h2,r,t) 
c 

c  THIS  ROUTINE  CALCULATES  THE  TRANSMITTANCE  DUE  TO  ATMOSPHERIC 
c  EFFECTS  BY  INTEGRATING  ALONG  THE  BEAMPATH 
c 

c  R  RANGE 

c  HI  ALTITUDE  OF  ONE  ENDPOINT  OF  BEAM  PATH 

c  H2  ALTITUDE  OF  OPPOSITE  ENDPOINT 

c  T  TRANSMITTANCE 

C  NSTEP  NUMBER  OF  INTEGRATION  STEPS 

c  RE  EARTH  RADIUS,  M 

c  ALFAEX(H)  EXTERNAL  FUNCTION  WHICH  RETURNS  EXTINCTION 

C  COEFFICIENT  FOR  ALTITUDE  H. 

c 
c 

common/ atmos/  alfa(5,2) ,alfsct,alfab,ia,ab(33) ,as(33) , at (33, 14, 6) 
&  ,mat,mvis 

double  precision  reh2s,reh1 ,reh1s,re,dcosp,zd2 
data  re/6.31131d6/ 
c 

c  COMPUTE  NUMBER  OF  STEPS  ALONG  PATH 

c 

nstep=1+r/500. 

nstep=max0(nstep,60) 

c 

C  COMPUTE  COSINE  OF  ZENITH  ANGLE 

c 

c 

if  (r.lt.200..or.ia.eq.1)  go  to  20 
rehl =re+h1 
reh2s=(re+h2) #*2 
reh1s=reh1**2 
c 

dcosp=(reh2s-reh1 s-(dble(r))**2)/(2#reh1*dble(r)) 
c 

c  SET  UP  FOR  INTEGRATION  LOOP 

c 

c  STEPSIZE  ALONG  PATH  IS  DZ 

c 

dz=r/nstep 

c 

c  HU,HL  ARE  UPPER  AND  LOWER  INTEGRATION  BOUNDS 
c 

hu=h1 


INTEGRATE  BY  SUMMING 
do  10  k:1,nstep 
z=dz*k 

zd2=dble(z«*2) 


hl=hu 

hu=dsqrt(reh1 s+zd2+2*z*reh1 #deosp)-re 

AVERAGE  EXTINCTION 

alf= .5*( alfaex( hi ) +alfaex( hu) ) 

ALFL  IS  INTEGRATION  RESULT  -  EXTINCTION  »  RANGE 

al f l=al f 1+al f*dz 
continue 

COMPUTE  TRANSMITTANCE 

t=exp(-alfl) 

return 

RANGE  IS  LESS  THAN  200  METERS  OR  CO-ALTITUDE  CASE 

tsexp ( -al f aex( hi ) *r ) 

return 

end 

function  ftheta( theta) 

THIS  ROUTINE  CALCULATES  THE  SCATTERING  COEFFICIENT  AS  A  FUNCTION 
OF  THETA. 

common/  ldata  /  rl,alam,rpx,dummy,x,angtr,angrec,gamint,bw 

dimension  fact (2) ,slope(2) ,thtmn(2) ,amp1( 2) ,tcon1 ( 2) ,amp2(2) , 
tcon2(2),shft(2) 

data  fact, slope, thtmn,shft/. 0008, .0012,1 .4,1 .0,2.1 ,2.4,3.6,3.25/ 
data  ampl ,amp2 ,tcon1 ,teon2/3 .5 ,2.5 , . 1 , .01 ,-6 . ,-7.5 ,-4.5 ,-4./ 

1:2 


if  (alaa.le. 5.6-6)  1:1 
SOLVE  FOR  FTHETA 

fthetarfact ( 1) *1 0 ,**(sqrt ( slope ( 1) *( theta-thtmn( 1) ) »«2+1 . ) )+amp1 ( 1 
)*exp(tcon1 ( l)#theta)-amp2( l)*exp(tcon2( l)*(shft(l) -theta)) 


return 

end 
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c 

c 

c 

c 

c 

c 

& 

c 

c 

c 

c 


c 

c 


c. 


c. 

c 

c 

c 

& 

c 

c 

c 


c 

10 


0 

20 


subroutine  delphi  (theta, phi, dphi) 

THIS  ROUTINE  CALCULATES  THE  DPHI  REQUIRED  TO  MINIMIZE  THE 
ERROR  IN  CALCULATING  FTHETA. 

data  onedeg/.017/ 

STATEMENT  FUNCTION  TO  COMPUTE  DPHI 

dphix(ac,thet)=abs(ac*sqrt(2.*(thet-2.)**2+1 .)/( .08*10.**(sqrt(2.* 
( thet-2 . ) **2+1 . ) ) *( the t-2 . ) ) ) 

GIVE  ACCURACY  VALUE 
acc= .01 

CALCULATE  THE  ELEMENTAL  FOV  AT  THE  EDGES  OF  THE  WHOLE  FOV 

thtner= theta-phi/2 . 

th tf ar= the ta+phi/ 2 . 

dphil =dphix(acc, thtner) 

dphi2=dphix(acc, thtfar) 

FIND  OUT  WHICH  ANGLE  IS.  SMALLER  AND  SET  EQUAL  TO  DPHI 

dphi=amin1( dphil ,dphi2 ,phi,onedeg) 

return 

end 

function  alfaex(h) 
alfaex=alfaab( h) +alfasc ( h) 
return 
end 

function  alfaab(h) 

THIS  ROUTINE  COMPUTES  THE  ATMOSPHERIC  ABSORPTION  COEFFICIENT 

common/atmos/alfa(5 ,2) ,alfsct,alfab,ia,ab(33) ,as(33) ,31(33,1^,6) 
,mat,mvis 

common/err/ier , ierab, iersc, ierbr ,devab , dev sc , devbr 

CHECK  TO  SEE  IF  USER  HAS  SPECIFIED  THE  AFGL  MODEL 

if  (ia.eq.2)  go  to  10 
alfaab=alfab*( 1 ,+devab)**ierab 
go  to  80 

if  (h. gt. 25000. )  go  to  20 

i=h/1000.+2. 

go  to  60 

if  (h.gt. 50000.)  go  to  30 
i=h/5000+22. 


72 


go  to  60 
c 

30  if  (h.gt. 70000.)  go  to  40 
i=32 

go  to  60 
c 

40  if  (h.gt. 100000.)  go  to  50 
i=33 

go  to  60 
c 

50  alfaab=0. 

go  to  80 
c 

60  if  (i.gt.0)  go  to  70 

c  USE  COEF.  AT  GROUND  LEVEL  IF  BELOW  GROUND  ALTITUDE 

i=1 
c 

70  alfaab=ab(i) 

alfaab=alfaab*( 1 .+devab)**ierab 
80  return 

c 

end 
c. 

function  alfasc(b) 
c 

c  THIS  ROUTINE  COMPUTES  THE  ATMOSPHERIC  SCATTERING  COEFFICIENT 

c 

common/atmos/alfa(5,2) ,alfsct,alfab,iafab(33) ,as(33) »at(33,l4,6) 
&  , mat,mvis 

common/ err/ ier , ier ab , iersc , ierbr , devab , devsc , devbr 
c 

C  CHECK  TO  SEE  IF  USER  HAS  SPECIFIED  THE  AFGL  MODEL 
c 

if  (ia.eq.2)  go  to  10 
aifasc=alfsct*( 1 .+devsc)**iersc 
go  to  80 
c 

10  if  (h.gt. 25000.)  go  to  20 

i=h/1000.+2. 
go  to  60 
c 

20  if  (h.gt. 50000.)  go  to  30 

i*h/5000+22 . 
go  to  60 
c 

30  if  (h.gt. 70000.)  go  to  40 

i»32 

go  to  60 
c 

40  if  (h.gt. 100000.)  go  to  50 


I 
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i=33 

go  to  60 
c 

50  alfasc=0. 

go  to  80 
c 

60  if  (i.gt.O)  go  to  70 

C  USE  COEF.  AT  GROUND  LEVEL  IF  BELOW  GROUND  ALTITUDE 
i=1 
c 

70  alfasc=as(i) 

alfasc=alfasc*( 1 .+devab) **ierab 
80  return 


subroutine  tscat  (prtr) 
e 

C  TSCAT  COMPUTES  THE  SCATTERED  POWER  AT  THE  SR  DUE  TO  SCATTERING 

C  FROM  THE  TRANSMITTER.  INCLUDED  IN  THE  CALCULATIONS 

C  ARE  SIDELOBES  AND  SCATTER  FROM  THE  OPTICS. 


c 


c 

ALAM 

- 

LINK  WAVELENGTH 

c 

DT 

- 

DIAMETER  OF  XMTR  OPTICS 

c 

FT 

- 

XMTR  POWER 

c 

ASR 

- 

AREA  OF  SR  OPTICS 

c 

ANG 

- 

THETA  TO  TRANSMITTER 

c 

BSDFX 

- 

FACTOR  USED  IN  COMPUTING  WINDOW  SCATTER 

c 

BAFEFF 

- 

EFFECTIVE  SUPPRESSION  OF  BAFFLE  FACTOR 

c 

BAFRAT 

- 

FUNCTION  WHICH  CALCULATES  BAFEFF 

c 

c 

PTS 

TOTAL  POWER  FROM  WINDOW  SCATTER 

c 

PSL 

- 

TOTAL  POWER  FROM  SIDE  LOBES 

c 

PRTR 

- 

TOTAL  POWER  CONTRIBUTION  FROM  XMTR 

c 

common/  flags  /mode, mcomp,mp, lam, modesw, lunit ,nout , istog, iotype , 
&  irtype,ihet,ibflag,iw 

common/  tdata  /blt,dt,ht,phit,pt,rb,grndi,bdrt,sigj,sigt 
common/  srdiata  /asr,hs,phi,phiaz,dphi 

common/  ldata  /  rl,alam,rpx, theta, x,angtr,angrec,gamint,bw 
data  hatm/1 00000./ 
c 

pi=3. 1415927 

pts=0. 

psl=0. 

prtr=0. 

bafeffrO. 

ang=angtr 

if  (ang.gt. 1 .57)  go  to  30 
c 
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CALCULATE  EFFECTIVNESS  OF  BAFFLE 

baf ef f =baf rat ( bdrt , dt , ang ,  bl  t ) 

COMPUTE  WINDOW  SCATTER 

COMPUTE  DISTANCE  TO  TRANSMITTER 
rs=  sqrt ( x*»2+rpx**2 ) 

COMPUTE  TRANSMITTANCE 

if  (istog.eq.O)  go  to  10 

SPACE  TO  GROUND  EXCEPTION 

call  trana  (hatm,hs,hatm-hs,t) 
go  to  20 

call  trans  (ht,hs,rs,t) 

COMPUTE  TOTAL  POWER  DUE  TO  WINDOW  SCATTER 
bsdfx=bsdf(ang) 

pts=asr»bsdfx»pt*t/rs**2*bafeff*cos(ang) 


CALCULATE  SIDELOBE  LEVEL  FOR  XMTR 
x4=8.*alam*pt*cos(ang)/(97 .40909*dt*ang**3) 

psl=x j*asr *t*baf ef f/rs**2 

COMPUTE  TOTAL  POWER  FOR  WINDOW  SCATTERING  AND  SIDELOBE  LEVEL 

prtr=pts+psl 

return 

end 

function  bsdf(ang) 

THIS  ROUTINE  CALCULATES  THE  SCATTERING  OFF  OF  THE  TRANSMITTER 
OPTICS.  THEORY  PREDICTS  A  LOG-LOG  LINEAR  CURVE  WIJH  A  SLOPE  OF 
-2.0.  THE  USER  CAN  SELECT  ANY  SLOPE  HE  WISHES.  GROSS  ANOMALIES 
MAY  BE  ACCOUNTED  FOR  BY  USING  NG  «GLITCHES«  OF  AMPLITUDE 
GAMPL(NG),  FROM  THETAs GST ART( NG )  DEGREES  TO  THETA=  GEND(MG) 
DEGREES. 


YBSDF  -  Y-INTERCEPT  OF  BSDF  (AT  1  DEGREE) 

SBSDF  -  LOG-LOG  SLOPE  OF  BSDF 

GSTRA  -  START  OF  DISCONTINUITY  (GLITCH) 

GENRA  -  END  OF  DISCONTINUITY  (GLITCH) 

GAMPL  -  AMPLITUDE  OF  DISCONTINUITY  IN  SPECIFIED  RANGE 


75 


common/  tbsdf  /  ng,gstart(3) ,gend(3) ,gampl(3) ,ybsdf ,sbsdf ,nbak,noa 
, ibsdf 

common/err/ ier , ierab, ierso , ierbr , devab , devsc , devbr 

BSDF  CURVE  USING  LOG-LOG  STRAIGHT  LINE  APPROXIMATION 
bsdf=ybsdf*(ang*57 .2958)**sbsdf 

if  (ng.eq.O)  go  to  20 

ADD  IN  GLITCHES  IF  SPECIFIED 

do  10  is  1 , ng 
gstra=g?tart(i)/57 .2958 
genrasgend(i)/57 .2958 

if  (ang.ge.gstra.and.ang.le.genra)  bsdfsgampl(i) 
continue 

ADD  ERROR  ANALYSIS  DEVIATION 

bsdf=bsdf*(1 .+devbr)**ierbr 

return 

end 

subroutine  rscat  (prec) 

RSCAT  COMPUTES  THE  CONTRIBUTIONS  FROM  REFLECTIONS  OFF  THE 
BACKSTOP  AND  RECEIVER 

DR  -  DIAMETER  OF  RCVR  OPTICS 

ASR  -  AREA  OF  SR  OPTICS 

PHIT  -  XMTR  BEAMWIDTH 

TL  -  TRANSMITTANCE  BETWEEN  XMTR  AND  RCVR 

TS  -  TRANSMITTANCE  BETWEEN  RCVR  AND  SR 

PBACKS  -  POWER  REFLECTEDFROM  BACKSTOP 

POA  -  POWER  REFLECTED  FROM  RECEIVER  OPTICS 

BAFEFF  -  FACTOR  REPRESENTING  EFFECTIVENESS  OF  BAFFLE 

BAFRAT  -  FUNCTION  TO  CALCULATE  BAFEFF 

common/  flags  /mode, mcomp,mp, lam, modesw,lunit,nout,istog,iotype, 
irtype , ihe  t , ibf lag , iw 

common/  tdata  /  blt,dt,ht,phit,pt,rb,grndi,bdrt,sigj ,sigt 
common/  rdata  /  blr,dr,hr ,gl,bdlr 
common/  srdata  /  asr,hs,phi,phiaz,dphi 

common/  ldata  /  rl ,alam,rpx, theta, x,angtr,angrec,gamint,bw 
data  pi  /  3.1415927  / 
data  hatm/ 100000./ 

the tap s pi- angr ec 

rbaclcssO. 

poasO. 
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bafef f=0 . 
c 

c  CALCULATE  EFFECTIVENESS  OF  BAFFLE 
c 

baf ef f =baf r at ( bdlr , dr , the  tap , blr ) 
c 

if  (istog.eq.O)  go  to  10 
c 

c  SPACE  TO  GROUND  EXCEPTION 

c 

call  trans  (hatm,hr ,hatm-hr,tl) 
go  to  20 
c 

10  call  trans  (ht,hr,rl,tl) 

20  rs=sqrt((rl-rpx)**2+x**2) 

call  trans  (hr ,hs,rs,ts) 
c  COMPUTE  POWER  AT  RECEIVER 

prec=pt*tl 
c 

c  COMPUTE  POWER  REFLECTED  FROM  BACKSTOP  -  ASSUMES  BACKSTOP 

c  IS  AT  LEAST  AS  LARGE  AS  THE  BEAM  DIAMETER 

c 

pbacks=prec»ts*rhobak( thetap ) *asr/ ( rs ) **2 
c 

c  COMPUTE  POWER  REFLECTED  FROM  RECEIVER 

c 

if  (thetap. gt. 1 .57)  go  to  30 

poa=prec*ts*asr*(dr/( rs*rl*phit ) ) **2*baf ef f»rhooa( thetap) 
c 

c  SUM  CONTRIBUTIONS 

c 

30  prec=pbacks+poa 

return 
end 
c. 

function  rhobak(thetap) 
c 
c 

c  RHOBAK  COMPUTES  REFLECTANCE  OF  BACKSTOP 

c 

c  BMAXS  -  MAXIMUM  OF  SPECULAR  COMPONENT 

c  BFWHMS  -  FULL  WIDTH  AT  HALF-MAXIMUM  OF  SPECULAR  COMPONENT 

c  PSIEFF  -  ANGLE  BETWEEN  NORMAL  OF  BACKSTOP  AND  LINK  OPT.  AXIS 

c  THETS  -  ANGLE  BETWEEN  SPECULAR  COMPONENT  AND  SR  OPT.  AXIS 

c  RHOBAK  -  REFLECTANCE  OF  BACKSTOP 

c 

common/ rsct/oasmax, dif foa , oafwhm, bmaxs , bfwhms , bdif f( 6 ) , psiaz , psiel 
&  ,gams 

common/  flags  /mode, mcomp,mp, lam, modesw,lunit,nout,istog,iotype, 

&  irtype,ihet,ibflag,iw 
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c 

c 

c 

& 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

10 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

& 

c 

c 

c 

c 

c 


common/  ldata  /  rl,alam,rpx, theta, x,angtr,angrec,gamint,bw 

COMPUTE  BACKSTOP  ORIENTATION  FACTORS 

rhobak=0. 

cs1=x*(sin(psiaz)#cos(gamint)+sin(psiel)*sin(gamint))+(rl-rpx)*cos 

(psiel)*cos(psia2) 

ANGLE  BETWEEN  BACKSTOP  NORMAL  AND  SR 

psieff=acos(cs1/sqrt(xM2+(rl-rpx)**2) ) 

CHECK  TO  SEE  IF  SR  IS  BEHIND  BACKSTOP 

if  (psieff .gt.1 .57)  go  to  10 
cs2=2.*asin((sin(psiaz) ) **2+(sin(psiel))**2) 

thets=acos((x*sin(cs2)+(rl-rpx)*cos(cs2) )/sqrt(x**2+(rl-rpx),#2) ) 
backs  t = bmaxs  »exp ( -2 . 7  7  3  * ( the  ts/ bf whms ) *  *2 ) 

ADD  DIFFUSE  AND  SPECULAR  COMPONENTS 
rhobak=(bdiff(  lam)/3.14159+backst)*eos(psief  f) 


return 

end 

function  rhooa(thetap) 

RHOOA  COMPUTES  THE  DIRECTIONAL  REFLECTANCE  OF  THE  RECEIVER 
NORMALIZED  TO  1  WATT/SR.  A  SPECULAR  COMPONENT  IS  DEFINED  BY 
A  GAUSSIAN,  AND  A  DIFFUSE  COMPONENT  IS  A  CONSTANT  REFLECTION  COEF 

OASMAX  -  MAXIMUM  OF  SPECULAR  COMPONENT 

OAFWHM  -  FULL  WIDTH  AT  HALF  MAXIMUM  OF  SPECULAR  COMPONENT 

DIFFOA  -  DIFFUSE  REFLECTANCE 

RHOOA  -  REFLECTANCE  OF  RECEIVER  OPTICS 

common/rsct/oasmax,diffoaroafwhm, bmaxs ,bfwhms,bdiff(6) ,psiaz , psiel 
,gams 

common/  ldata/  rl,alam,rpx, theta, x,angtr,angrec,gamint,bw 
data  onedeg, pi, r2d/. 0174532925, 3. 14 1592654, 57. 29577951/ 

thetap=pi-angrec 

SPECULAR  COMPONENT 

oa= ( oasmax-dif f oa ) #exp ( -2 .773* ( the  tap/oaf whm) **2) 

ADD  DIFFUSE  COMPONENT 
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c 


c 


c. 

c 

c 

c 

c 


c 


c 

c 

c 


c 

c 

c 


c 


c 

c 

0 

c 


c 

10 


c 

20 

30 


c. 


rhooa= ( dif f oa/pi+oa ) »co  s ( the  tap ) 

return 

end 

function  baf rat(d1 ,d2, theta, bl) 

THIS  FUNCTION  CALCULATES  THE  EFFECTIVENESS  OF  THE  RECEIVER 
AND  TRANSMITTER  HOODS.  D1  MUST  BE  >r  D2. 

if  (bl.le.O.)  go  to  20 
pi=3.  U15927 
r1=d1/2. 
r2=d2/2. 

the tap= theta 

if  (thetap.ge. 1 .57)  the tap=pi- theta 

C2  IS  THE  PERP.  DISTANCE  BETWEEN  THE  CENTER  OF  THE  CIRCLES 

c2=tan(thetap)*bl 
if  (c2.ge.(r1+r2) )  go  to  10 
if  (c2.1e.(r1-r2) )  go  to  20 

X  AND  Y  ARE  COORDINANTS  OF  INTERSECTION  OF  THE  TWO  CIRCLES 

x=( rl **2-r2**2+c2**2) /(2.«c2) 
y=sqrt( rl ««2-x**2) 

the  tal =atan2 ( y , x ) 
the  ta2 =a tan2 ( y , ( c  2-x ) ) 

SOLVE  FOR  OVERLAPPING  AREA  OF  CIRCLES 

area=r1**2*theta1-x*y+r2**2*theta2-(c2-x)#y 

bafrat=area/(  pi*r2**2) 
go  to  30  « 

i 

bafrat=0. 
go  to  30 

bafrat=1 . 

return 

end 

subroutine  ston 


i 


c 

c 


INPUTS 
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c 

XM  = 

MODULATION  INDEX  =1 

c 

ETA  = 

QUANTUM  EFFICIENCY 

c 

ALAM  = 

WAVELENGTH 

c 

F  = 

NOISE  ASSOCIATED  WITH  GAIN 

c 

BWR  = 

RECEIVER  BANDWIDTH 

c 

PTHERM= 

THERMAL  NOISE  EQV  POWER 

c 

DARKIs 

DARK  CURRENT 

c 

G  = 

PREDETECTION  GAIN 

c 

PS  = 

SIGNAL  POWER 

c 

PB  = 

BACKGROUND  (ROUTINE) 

c 

c 

OUTPUTS 

c  SN=  SIGNAL  TO  NOISE, DB 
c 

C  ROUTINES  CALLED  -  BACK  COMPUTES  BACKGROUND  SIGNAL  POWER 
c 

common/  flags  /mode, mcomp,mp, lam, modesw,lunit,nout,istog,iotype, 
&  irtype,ihet,ibflag,iw 

common/  tdata  /  blt,dt,ht,phit,pt,rb,grndi,bdrt,sigj,sigt 
common/  rdata  /  blr,dr,hr ,gl,bdlr 
common/  srdata  /  asr,hs,phl,pbiaz,dphi 

common/  ldata  /  rl,alam,rpx, theta, x,angtr,angrec,gamint,bw 
c  *  darki  &  ptherm  replace  pnep  add  g  * 

common/  sndata  /  bwr, eta, f,em,pb,ps, darki, ptherm, snpndb, sndb,xm, 
&  bwopt ,nflg,g 

data  hc/1.986305l88e-25/ 
c 

if  (ihet.eq.1)  go  to  10 
c 

C  HETERODYNE  S/N  EXPRESSION 

c  WARNING  :  THE  VALIDITY  OF  THIS  EXPRESSION  WAS  UNDER 

c  QUESTION  AT  TIME  OF  WRITING ( SEE  DOCUMENTATION) 

e 

sn=em*eta*alam*xm*#2*ps/( bwr*hc) 
go  to  20 
c 
c 

c  *  modify  s/n  expression  to  account  for  separation  of 
c  dark  current  and  thermal  noise  *  } 

c  DIRECT  DETECTION  S/N 

10  xnl =xm**2*ps**2 

xn2=2.*hc/(eta*alam) *f 

c  EQV.  POWER  THAT  GIVES  RISE  TO  DARK  CURRENT 

pd=hc/(eta*alam*1 .6e-19*g)#darki 
call  back 

sn=xn1 / { ( xn 2 * ( ps+pb+pd ) +ptherm*#  2) »bwr ) 

20  sndb=10.*alog10(sn) 

return 
end 
c. 
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subroutine  back 
c 

c  THIS  SUBROUTINE  CALCULATES  THE  BACKGROUND  POWER 
c 

c  EMM  EMMISTIVITY  OF  SOURCE 

C  OMGREC  -  SOLID  ANGLE  FOV  OF  RECEIVER 

c  HFLG  -  DAY/NIGHT  FLAG  (1  IF  NIGHT) 

c  RHO  -  REFLECTANCE  OF  SURFACE 

c  BWOPT  -  OPTICAL  BANDWIDTH,  MICRONS 

c  bMGSUM  -  SOLID  ANGLE  SUBTENDED  BY  SUN(SR) 

c  PSOLAR  -  BACKGROUND  POWER  FROM  RADIATION  OF  SUN 

c  PBLK  -  BACKGROUND  POWER  FROM  BLACKBODY  RADIATION  OF  EARTH 

c  PBACK  -  TOTAL  BACKGROUND  POWER 

c 

c 

c  *  dark!  &  ptherm  replace  pnep  add  g  * 

common/sndata/bwr ,eta,f ,em,pb,ps,darki,ptherm,snpndb,sndb,xm, 
&  bwopt,nflg,g 

common/ srdata/  asr , hs , phi , phiaz , dphi 

common/ Ida  ta/ rl , al am , rpx , the  ta , x , angtr , angr ec , gamin  t , bw 
data  rho/3 ./ , emm/ 1 ./ , temblk/293 ./ 
data  cfudge/.OI/ 
dimension  solvir(183) ,soluv(20) 
c  THE  DATA  IN  ARRAYS  SOLVIR  AND  SOLUV  ARE  HLAMDA  IN  UNITS 

c  OF  WATTS  PER  SQUARE  METER  PER  MICRON  AND  ARE  FROM 

c  THE  HANDBOOK  OF  GEOPHYSICS  AND  SPACE  ENVIRONMENTS 
C  FOR  AN  AIR  MASS  OF  2. 

c 


data  sol vi r/ 


& 

54.0,  101., 

151., 

188., 

233.,  279.,  336., 

379.,  470.,  672., 

& 

733.,  787., 

911., 

1006., 

1080. ,1138. ,1183., 

1210. ,1215. ,1206., 

& 

1199. ,1188. 

,1198. 

,1190. 

,1182. ,1178. ,1168. 

,1  161. ,1  167. ,1  168. , 

& 

1165. ,1176. 

,1175. 

,1173. 

,1  166.  ,1  160. ,1  149. 

,  978., 1  108., 1070., 

& 

832.,  965., 

1041. , 

867., 

566.,  968.,  907., 

923.,  857.,  698., 

& 

801  .,  863., 

858.  , 

839., 

813.,  798. ,  614. , 

517.,  480.,  375., 

& 

258.,  169., 

278., 

487  ., 

584.,  633-,  645., 

643.,  630.,  620., 

& 

610.,  601., 

592., 

551., 

526.,  519.,  512., 

514.,  252.,  126., 

& 

69.9,  98.3, 

164. , 

216., 

271.,  328.,  346., 

344.,  373.,  402., 

& 

'•  *31.,  *20., 

387., 

328., 

311.,  381.,  382., 

346.,  264.,  208., 

& 

168.,  115., 

58.1 , 

18.1 , 

.660,  0.00,  0.00, 

0.00,  o.oo,  1.91, 

& 

3.72,  7.53, 

13.7, 

23.8, 

30.5,  45.1,  83.7, 

128.,  157.,  187., 

& 

209.,  217., 

226., 

221 ., 

217.,  213.,  209., 

205. ,  202. ,  198. , 

& 

194.,  189., 

184. , 

173., 

163.,  159.,  145., 

139.,  132.,  124., 

& 

115.,  105., 

97.1, 

80.2, 

58.9,  38.8,  18.4, 

5.70,  .920,  0.00, 

& 

0 .00 ,  0 .00 , 

0.00, 

0.00, 

0.00,  0.00,  0.00, 

0.00,  0.00,  .705, 

& 

2.34,  3.68, 

5.30, 

17.7, 

31.7,  37.7,  22.6, 

1 .58,  2.66,  19.5, 

& 

47.6,  55.4, 

54.7, 

38.3, 

56.2,  77.0,  88.0, 

86.8,  85.0,  84.4, 

& 

83.2,  20.7, 
data  soluv/ 

0.00/ 

& 

.177,  .342, 

.647, 

1.16, 

1.91,  2.89,  4.15, 

6.11,  8.38,  11.0, 

13.9,  17.2,  21.0,  25.4,  30.0,  34.8,  39.8,  44.9,  49.5,  54.0/ 

PLANCK *S  EQUATION  FOR  SPECTRAL  DISTRIBUTION 

c1(alamda,temp)=emm*1 . 1 9096 e-22/ (alamda**5*( exp (1 .43879e-2/ (alamda 
*temp))-1 .) ) 

SOLVE  FOR  HLAM  USING  INTERPOLATION  ROUTINES 

hlamsO. 

pblk=0. 

psolar=0. 

CALCULATE  RECEIVER*S  SOLID  ANGLE  FOV,  STER 
omgrec=phi*phiaz 

CHECK  TO  SEE  IF  DAY  OR  NIGHT 
if  (nflg.eq.3)  go  to  40 

if  (alaa.ge.3.01e-7.and.alam.lt.3.20e-7)  go  to  10 
if  (alam.ge.3.20e-7.and.alam.lt.2.14e-6)  go  to  20 
go  to  30 

hlam=odlie(alam,soluv, .001e-6, .301e-6,20) 
go  to  30 

hlam=odlie(alam,solvir, .01e-6 , .32e-6 ,183) 


COMPUTE  CONTRIBUTION  FROM  SOLAR  RADIATION 
psolar=rho*bwopt*asr*omgrec*hlam/(3 .14159*2) 


CLOUDY  DAY  FUDGE  FACTOR 

If  (nflg.eq.2)  psolar=pso!ar*cfudge 

COMPUTE  CONTRIBUTION  FROM  BLACKBODY  RADIATION  OF  EARTH 
if  (alan.gt. 1 ,5e-6)  pblk=asr*omgrec*bwopt*c1(alam,temblk) 

SUM  CONTRIBUTIONS 

pb=psolar+pblk 

return 

end 

function  odlie(xO,f ,dx,xs,n) 

one-dimensional  linear  interpolation  routine  for 
equally-spaced  data 


xOsvalue  for  which  f(xO)  is  desired 
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c  f=array  containing  values  of  dependent  variable 
c  dx=increment  for  independent  variable 

c  xs=starting  value  of  independent  variable 

c  n= number  of  points  in  f 
c 

dimension  f(n)  f 

q= ( xO-xs ) /dx+1 .0 
ksint(q) 
if  (k.lt.1 )  i=1 
if  (k.gt.n-1)  i=n-1 
if  (k.ge.1 .and.k.le.n-1)  i=k 
odlie=( f ( i) +( f ( i+1 ) -f ( i) ) •( q-i) ) 
return 
end 
c. 

c  *  add  subroutine  batch  * 
subroutine  batch 
c 

C  READS  INPUTS  FROM  A  USER  SPECIFIED  FILE,  N,  IN  NAMELIST 

c  FORMAT.  THE  NAMELIST  NAME  IS  INPUT, 

c 

common  /  flags  /  mode, mcomp,mp, lam, modesw,lunit,nout,istcg,iotype, 

&  irtype,ihet,ibflag,iw 

common  /  blockl  /  xmod(6) ,gainsr(6) ,qe(6) ,fnoise(6) ,srbw(6) , 

&  srdark(6) ,srther(6) , 

&  alamda(6) ,obw(6) ,nhol(6) 

common  /  tdata  /  blt,dt,ht,phit,pt,rb,grndi,bdrt,sigj,sigt 
common  /  rdata  /  blr ,dr,br,gl,bdlr 
common  /  srdata  /  asr,hs,phi,phiaz,dphi 

common  /  ldata  /  rl,alam,rpx, theta, x,angtr,angrec,gamint,bw 
common  /  sndata  /  bwr,eta,f ,em,pb,ps,darki,ptherm,snpndb,sn  db,xm, 

&  bwopt,nflg,g 

common  /  atmos  /  alfa(5 ,2) ,alfsct , alfab, ia,ab(33) ,as(33) >at(33> 1^ >6) > 
&  mat,mvis 

common  /  tbsdf  /  ng,gstart(3) ,gend(3) ,gampl(3) ,ybsdf ,sbsdf ,nbak,noa, 

&  ibsdf 

common  /  rsct  /  oasmax,diffoa,oafwhm,bmaxs,bfwhms,diff(6) ,psiaz, 

&  psiel,gams 

common  /  pltc  /  xint(200) ,yint(200) ,h(200) ,contr(2) ,np,note 
common  /  wavefm  /npts,t,formO(  1  000)  ,formlO000)  ,power0(  1  000) , 

&  powerl(IOOO) 

data  dcomp,r2d  /0. 0,57 .295779  / 

namelist  /input  /  lam,alamda,ia,alfsct,alfab,at,mat,mvis,ab,as, 
dt , phit , ibsdf , ybsdf , sbsdf , ng , gstart , gend , gampl , dr , nbak , bmaxs , bfwhms , 
bdiff,psiaz,psiel,noa,oasmax,oafwhm,diffoa,pt ,rl ,ht ,hr ,istog,x, 
theta,gl,ibflag,sigj ,iw,rd,grndi,mcomp,mp,irtype,xm,ihet,em,eta,f, 

&  bwr , darki , ptherm , bwopt , nf lg , bw , asr , phi , phiaz , bl t , bdrt , blr , bdlr , hs , 

&  gamint,mode,rpx,dcomp,t,npts,form0,form1 ,g 

c  READ  INPUTS 

write(6 ,200) 
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200  fornat(/,1 Ox, "input  file?") 

read(5,100)  n 
100  format(v) 

read(n, input) 
close  (n) 

c  SELECT  WAVELENGTH 

if  (lam.ne.6 .and.lam.ne.O)  alam=alamda( lam) 
c  LOAD  THE  ABSORPTION  AND  SCATTERING  ARRAYS  AB  AND  AS 

matl =2*mat-1 
mat2=mat1 +1 
mvisl =10+2*mvis-1 
mvis2=mvis1+1 
do  10  j=1 ,33 

ab( j)=(at( j,mat1  , lam) +at(j, mvisl ,lam))«1 ,0e-3 
10  as( j)=(at(j,mat2,lam)+at( j,mvis2,lam))*1 .Oe-3 

c  CHECK  FOR  DIFFRACTION  LIMIT 

difflsl .22«alam/dt 
if  (phit.lt.diffl)  go  to  20 
c  CHECK  FOR  HETERODYNE  RCVR  IN  MODE  6 

if  (mode.eq.6.and.ihet.eq.2)  go  to  30 
C  CHECK  NPTS  ODD 

if  (npts.eq.2*(npts/2) )  go  to  40 
c  CONVERT  TO  RADIANS 

psiaz=psiaz/r2d 
psiel=psiel/r2d 
theta=theta/r2d 
gamin t=gamint/r2d 
C  SET  DEFAULT  VALUES 

if  (bdiff.gt.0.0)  diff(lao)sbdiff 
if  (nbak.eq.3)  bmaxs=bdiff 
if  (istog.eq.1)  mcomp=1 
if  (xm.eq.0.0)  xm=xmod( lam) 
if  (ihet.eq.O)  ihet=1 
if  (eta. eq. 0.0)  eta=qe(lam) 
if  (f.eq.0.0)  f=fnoise( lam) 
if  (bwr.eq.0.0)  bwr=srbw( lam) 
if  (darki.eq.O .0)  darki=srdark( lam) 
if  (ptherm.eq.0.0)  pthermrsrther( lam) 
if  (g.eq.0.0)  g=gainsr( lam) . 
if  (bwopt.eq.0.0)  bwopt=obw( lam) 
if  (bdrt.eq.0.0)  bdrtsdt 
if  (bdlr.eq.0.0)  bdlr=dr 

if  (dcomp.ne.0.and.mode.eq.4)  contr( 1 ) =dcomp 
if  (dcomp.ne.0.and.mode.eq.5)  contr(2)=dcomp 
return 
c 

20  write(6 ,21 0)  phit,diffl 

210  format(/ ,1  Ox, "transmitter  beamwidth,  ",1pe11.3, 

&  "radians,  is  less  than  diffraction  limit,  ",1pe11.3,"  radians") 
stop 
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c 

30  write(6 ,220) 

220  format(/ , lOx, "Pr(e)  analysis  not  valid  for  heterodyne  receivers") 
stop 

c 

MO  write(6,230) 

230  format(/ ,1  Ox, "npts  must  be  odd") 

stop 
end 


Section  IV 

Probability  of  Error  Subroutine 


PROBABILITY  OF  ERROR  SUBROUTINE 


The  subroutine  ERROR  is  a  FORTRAN  program  to  calculate  upper 
and  lower  bounds  on  the  probability  of  bit  error  for  any  direct 
detection  optical  communication  receiver  for  which  the  power  waveform 
incident  on  the  detector  may  be  considered  non-stochastic.  The  probabil¬ 
ity  of  error  bounds  are  implemented  by  means  of  the  Bhattacharyya 
distance  measure. 

The  performance  bounds  are  based  on  the  received  power  wave¬ 
forms  given  mark  and  space.  Thus,  the  lower  bound  is  the  absolute  best 
performance  one  might  possibly  achieve  given  the  received  signal  set. 

The  upper  bound  is  the  worst  one  will  do  assuming  the  receiver  implements 
the  optimal  decison  rule  on  the  detector  output. 

The  inputs  are  passed  to  the  program  in  labeled  common.  The 
sampled  received  power  waveform  given  mark  and  the  received  waveform 
given  space  as  well  as  the  number  of  sample  points  and  the  bit  duration 
appear  in  the  common  WAVEFM.  The  number  of  sample  points  must  be  odd. 

The  pertinent  receiver  parameters  are  passed  in  the  common  RCVR.  Or 
it  may  be  more  convenient  to  insert  the  common  blocks  from  the  main 
program  that  contain  the  necessary  information.  The  labeled  common 
INTER  passes  data  to  the  external  Bhattacharyya  distance  functions. 

The  program  returns  as  arguments  the  uDDer  and  lower  bounds 
on  the  probability  of  bit  error  and  a  flag  indicating  whether  the 
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performance  is  (1)  shot  noise  limited,  (2)  thermal  noise  limited,  or 
(3)  a  combination  of  shot  and  thermal  noise.  If  the  receiver  noise  is 
a  combination  of  shot  and  thermal  or  excess  noise,  both  the  performance 
assuming  a  Poisson  model  and  the  performance  assuming  a  Gaussian 
model  are  returned  for  user  comparison. 

The  Bhattacharyya  distance  integrals  are  evaluated  using  Simpson's 
rule  for  integration.  To  the  extent  that  the  sample  points  adequately 
represent  the  waveform  in  a  piece-wise  sense,  Simpson's  rule  is 
accurate  enough. 

The  OFF-AXIS  program  suoplies  the  dark  current,  ip,  and  the 
thermal  noise  equivilent  power,  Peerin’  rather  than  the  dark  power,  Pp, 
and  the  spectral  density  of  the  thermal  noise,  Nn/2.  To  avoid  unnecessary 
computations  the  subroutine  as  it  appears  in  my  thesis  was  modified 
slightly.  The  relationship  between  the  parameters  is 

PD  ■  iD/aeG  _  N0/2  •  l/2(PC-JPtherm)2 

The  modification  is  straightforward  substitution  and  cancelation  of 

terms. 

Following  is  a  flow  chart  and  listing  of  the  subroutine 


ERROR. 


Program  listing  of  subroutine  ERROR 


SUBROUTINE  ERROR 


NFLAG  *  3 


o  o 
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c . 
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c 

c 

c 

c 

c 
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c 
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c 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

& 
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subroutine  error ( nf lag , lobnd 1  ,upbnd1  , 
lobnd2 ,upbnd2) 

CALCULATE  PROBABILITY  OF  BIT  ERROR 


INPUTS: 

psO( i) 

— 

SAMPLED  RCVD  SIGNAL  POWER 
WAVEFORM  GIVEN  SPACE  (W) 

psl ( i) 

— 

SAMPLED  RCVD  SIGNAL  POWER 
WAVEFORM  GIVEN  MARK  (W) 

npts 

— 

NUMBER  OF  SAMPLED  WAVEFORM 
POINTS.  NPTS  MUST  BE  ODD. 

t 

- 

BIT  TIME  INTERVAL  (S) 

eta 

- 

DETECTOR  QUANTUM  EFFICIENCY 

g 

- 

DETECTOR  GAIN 

f 

- 

EXCESS  NOISE 

alam 

- 

OPTICAL  WAVELENGTH  (M) 

ptherm 

NOISE  EQUIVALENT  POWER  OF 
THERMAL  NOISE  (W) 

pback 

- 

BACKGROUND  POWER  (W) 

darki 

“ 

DETECTOR  DARK  CURRENT  (A) 

RETURN: 

upbnd  1 

• 

SHOT  NOISE  LIMITED  UPPER 

BOUND  ON  PROBABILITY  OF  ERROR 

lobnd 1 

SHOT  NOISE  LIMITED  LOWER 

BOUND  ON  PROBABILITY  OF  ERROR 

upbnd2 

THERMAL  NOISE  LIMITED  UPPER 
BOUND  ON  PROBABILITY  OF  ERROR 

lobnd2 

— 

THERMAL  NOISE  LIMITED  LOWER 
BOUND  ON  PROBABILITY  OF  ERROR 

nf  lag 

PERFORMANCE  FLAG 

1  -  SHOT  NOISE  LIMITED 

2  -  THERMAL  NOISE  LIMITED 

3  -  COMBINATION  OF  SHOT  AND 

THERMAL  OR  EXCESS  NOISE 

INTERNAL  VARIABLES: 

b 

- 

BHATTACHARAYYA  DISTANCE 

pnoi se 

- 

EFFECTIVE  NOISE  POWER  (W) 

pave 

- 

AVERAGE  RECEIVED  POWER 

alpha 

- 

OPTICAL  POWER  TO  AVERAGE 
PHOTON  COUNTS 

eg 

- 

PHOTON  COUNTS  TO  CURRENT 

common  /  wavefm  /  npts, t , formOC  1 000)  , 
forml ( 1000) ,ps0( 1000) , psl ( 1000) 
common  /  ldata  /  rl , alam, rpx , theta  ,  x , 
angtr , angrec , gamint , bw 
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common  /  sndata  /  bwr , eta , f , em , pback, ps , darki , 
&  ptherm , snpndb , sndb , xm ,  bwopt , nf lg ,  g 

common  /  inter  /  pn ois e , alpha , eg , f noise 
c 

external  func 1 , func2 , func3 
real  lobndl , lobnd2 
c 

alpha=eta*alam/( 2.998e8*6 . 626e-34 ) 
eg=g*1 .6e-19 
fnoise=f 
c 

pnoise  =  pback+darki/(  alpha*eg) 
c 

c  CALCULATE  AVERAGE  POWER 

pave=0 .0 
do  10  i=  1  ,npts 
pa ve=pa ve+ps0( i )+ps1 ( i ) 

10  continue 

pave=0.5*pave/npts+pnoise 

c 

c  THERMAL  NOISE  LIMITED? 

if  ( alpha *0 . 5* ptherm** 2 .gt . 1 0 . 0*f *pave) 

&  go  to  40 

c  EXCESS  NOISE? 

if  (f .gt. 1 . 0)  go  to  20 
c  SHOT  NOISE  LIMITED? 

if  ( pave . gt . 10 .0*alpha*0 . 5*ptherm**2) 
go  to  30 

20  nflag=3 

pnoise=pnoise+alpha*0 . 5* ptherm **2/ f 
b=0.5*f*simp( func 1 ) 
upbnd 1 =0 . 5*exp ( -b ) 
lobnd1=0.25*exp(-2.0*b) 
b=0 ,5*simp( func3) 
upbnd2=0.5*exp(-b) 
lobnd2=0.25*exp(-2.0*b) 
return 
c 

30  nflag=1 

b=0 .5*simp( func 1 ) 
upbnd 1 =0 .5*exp( -b) 
lobnd1=0.25*exp(-2.0*b) 
return 
c 

40  nflag=2 

b=0.25*simp(func2)/ ptherm **2 

upbnd 2=0. 5*exp(-b) 

lobnd2=0.25*exp(-2.0*b) 

return 

end 


R"  {?• 
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function  simp(func) 
c 

c  SIMPSONS  RULE  INTEGRATION  OF 

c  FUNCTION  FUNC 

c 

common  /  wavefm  /  npts ,t , formOC 1 000) , 

&  forml (1000) ,psO( 1000) ,ps1 ( 1000) 

double  precision  sum 
c 

sum=0 .0 

do  10  i= 1 ,npts-2 ,2 
term= f  unc ( i ) +4#f unc ( i+ 1 ) +f unc ( i+2) 
sumssum+term 
10  continue 

s imps t* sum/ ( 3*(npts-1 ) ) 
return 
end 
c, 

function  func(i) 
c 

c  BHATACHARAYYA  DISTANCE  FUNCTIONS 

c 

common  /  wavefm  /  npts, t , f0( 1 000) , 

&  f1(1000) ,p0(1000) , pi ( 1 000) 

common  /  inter  /  pn,a,e,f 
c 

c  POISSON  PROCESS 

entry  funcl(i) 

funcsa*( sqrt ( pi ( i ) +pn ) -sqrt ( p0( i ) +pn ) ) **2 
return 
c 

c  GAUSSIAN  PROCESS 

entry  func2(i) 
f unc=(p1 ( i ) -p0( i ) ) **2 
return 
c 

c  GAUSSIAN  PROCESS  -  TIME  VARYING  VARIANCE 

entry  func3(i) 
f uncsa*( pi ( i)-p0(i))**2/ 
(2.0*f*(p1(i)+p0(i)+2.0*pn))+ 
alog((p1(i)+p0(i)+2.0#pn)/ 

( 2 .0*sqrt ( ( p 1 ( i ) +pn ) *( p0( i ) +pn ) ) ) ) 
return 
end 
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APERTURE  AVERAGING  CHECK  SUBROUTINE 

The  subroutine  APERTR  is  a  FORTRAN  subprogram  to  calculate  if 
there  is  enough  aperture  averaging  to  ignore  the  effects  of  atmospheric 
turbulence  in  the  clear  atmosphere  between  the  scattering  volume  and 
the  off-axis  receiver. 

As  shown  in  Figure  1,  the  scattering  volume  may  be  viewed  as  an 
extended  incoherent  source  localized  to  a  plane  parallel  to  the  receiver 
aperture.  This  effective  transmitter  aperture  is  located  a  distance  L 
from  the  receiver.  If  we  assume  that  the  scattering  volume  fills  the 
receiver  field  of  view,  the  area  of  the  effective  transmitter  aperture 
may  be  calculated  from  the  rectangular  field  of  view  of  the  receiver 

At  *  2L  sin(t/2)  ■  21  sin(*p/2)  (1) 

where  <j>  is  the  receiver  field  of  view  in  the  intercept  plane  and  <t>p  is 
the  field  of  view  perpendicular  to  the  plane. 

The  effective  transmitter  aperture  may  be  thought  of  as  a 
collection  of  coherence  cells,  from  each  of  which  the  light  will  arrive 
at  the  receiver  with  statistically  independent  fading.  The  area  of 
each  coherence  cell  is  irp^/4  where  pQ  is  the  coherence  distance.  If 
the  effective  transmitter  contains  many,  one  hundred  or  more,  coherence 
cells  the  random  fading  will  be  'averaged  out'  over  the  statistically 
independent  channels.  For  receivers  collecting  power  from  a  scattering 
volume,  the  field  of  view  v/i  1 1  most  likely  be  large  enough  that  this 
condition  is  met. 
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For  paths  with  uniform  turbulence 

oo  =  [1.09  (2tt/x)2  Cn2  L]  3/5  (2) 

2 

where  X  is  the  wavelength  and  Cn  the  atmospheric  structure  constant. 

2 

The  program  selects  from  three  values  of  Cn  ,  corresponding  to  mild, 
moderate  or  severe  turbulence. 

If  the  above  condition  is  not  met,  the  program  assumes  that  the 
off-axis  receiver  is  narrowing  in  on  a  signal  from  a  reflecting  surface. 
The  effective  path  length  is  now  the  total  path  from  the  transmitter 
to  the  reflecting  surface  to  the  receiver. 

L  =  [rpx  -  x/tan(e)]  +  x/sin(e)  (3) 

In  a  similar  manner  the  receiver  aperture  can  be  broken  up  into  coherence 

cells  each  of  area  rrp  2/4.  The  coherence  distance,  p  ,  is  calculated 

0  0 

as  aoove  using  the  value  of  L  calculated  in  Eq.(3).  Again,  if  there  are 
one  hundred  or  more  coherence  cells  in  the  receiver  aperture,  each 
experiencing  random  fading,  the  effects  of  fading  will  be  averaged  out. 

If  neither  of  the  above  conditions  is  met,  the  program  prints 
out  a  warning  that  performance  may  be  degraded  due  to  turbulence  induced 
fading. 

Following  is  a  listing  of  the  subroutine  APERTR. 


i. 
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Program  Listing  of  Subroutine  APERTR 
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subroutine  apertr 

CALCULATES  IF  THERE  IS  ENOUGH  APERTURE 
AVERAGING  TO  IGNORE  THE  EFFECTS  OF 
FADING  DUE  TO  TURBULENCE 


VARIABLES: 


cnsq 


arho 


theta 


phiaz 

1 

asr 

atr 

alam 


TURBULENCE  FLAG 
1 -SEVERE  2-MODERATE  3-WEAK 
ATMOSPHERIC  STRUCTURE 
CONSTANT  (M**2/3) 

TURBULENCE  COHERENCE 
CELL  AREA  (M**2) 
PERPENDICULAR  DISTANCE 
SR  TO  BEAM  (M) 

DISTANCE  TRANSMITTER  TO  SR 
OPTICAL  AXIS  (M) 

ANGLE  LINK  AXIS  TO  SR 
OPTICAL  AXIS  (RAD) 

SR  FOV  IN  INTERCEPT 
PLANE  (RAD) 

SR  FOV  OUT  OF  PLANE  (RAD) 
EFFECTIVE  PATH  LENGTH  (M) 

SR  APERTURE  AREA  (M**2) 
SCATTERING  VOLUME  EFFECTIVE 
APERTURE  AREA  (M**2) 
WAVELENGTH  (M) 


common  /  flags  /  mode  , mcomp ,mp , lam , modesw , 
lunit , nout ,istog,iotype,irtype,ihet,ibflag, 
iw 

common  /  ldata  /  rl , al am , rpx , theta , x , 
angtr,angrec,gamint,bw 

common  /  srdata  /  asr ,hs , phi , phiaz ,dphi 
dimension  cnsq(3) 

data  cnsq  /  2 ,85e-1 3 , 1 .Oe-1 3 » 8 . 5e-1 5  / 
data  pi  /  3.142./ 

l=x/sin(theta) 

atr=4.0*l**2*tan(0,5*phi)*tan(0.5*phiaz) 
arho=pi*(43.03*cnsq(iw)*l/alam**2)**-0.6/4 
if  ( atr . gt . 1 00*arho )  return 

write  (6,200) 

format  (6x , "program  assumes  SR  is  ", 
"narrowing  in  on  a  reflecting  target",/) 
l=rpx-x/tan(theta)+x/sin(theta) 
arho=pi*(43.03*cnsq(iw)*l/alams*2)**-0.6/4 
if  ( asr . gt . 1 00*arho )  return 


OJ  otf  oS  <k5 
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c 

terapr 1 00*arho 
write  (6,210)  temp 

10  format  (6x , "performance  may  be  degraded  by", 
"  fading  due  to  turbulence 6x , "minimum  ", 
"SR  aperture  for  complete  averaging  is  ", 
1pe11.3»"  me ters **2"  , / ) 
retu  rn 
end 
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ABSTRACT 


The  performance  of  off-axis  optical  communication  receivers 
is  considered.  A  statistical  model  of  the  photodetection  process  is 
presented  and  the  influence  of  the  received  field  statistics  on  the 
photodetection  process  is  discussed.  Upper  and  lower  bounds  on  the 
probability  of  bit  error  for  binary,  one-shot,  digital  communication 
systems  utilizing  direct  detection  are  developed.  These  bounds  are 
based  on  the  Bhattacharyya  distance  measure.  A  computer  program  is 
developed,  which  when  interfaced  with  existing  programs  that  model  the 
propagation  of  optical  radiation  through  the  atmosphere,  predicts  the 
probability  of  bit  error  performance  for  off-axis  optical  communication 
systems . 
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GLOSSARY 

-  Proportionality  constant,  nP(t)/hv. 

-  Bhattacharyya  distance 

-  Bandwidth  of  optical  filter 

-  Atmospheric  structure  constant 

-  Excess  noise  factor 

-  Mean  detector  gain 

-  Detector  quantum  efficiency 

-  Planck's  constant 

-  Impulse  response  of  the  post-detection  electronics 

-  Identity  matrix 

-  Optical  path  length 

-  Likelihood  ratio 

-  Rate  function  of  an  Inhomogeneous  Poisson  process 

-  Covariance  matrix  of  a  Gaussian  random  vector 

-  Mean  of  a  Gaussian  random  process  or  variable 

-  Nominal  optical  frequency 

-  Number  of  samples  of  a  random  process 

-  Power  density  of  background  noise 

-  Bilateral  spectral  density  of  thermal  noise 

-  Poisson  process 

-  Received  signal  power  waveform 

-  Average  received  signal  power 

-  Collected  background  power 

-  Equivalent  power  that  gives  rise  to  the  dark  current 


CHAPTER  ONE 


INTRODUCTION 

In  recent  years  there  has  been  a  tremendous  interest  and  growth 
in  communication  systems  utilizing  light  transmitted  over  optical  fibers. 
Opitcal  fibers  provide  a  more  benign  propagation  medium  than  is 
available  in  the  open  atmosphere.  The  atmospheric  channel  suffers  from 
scattering  due  to  suspended  particles,  random  refractive  index  fluctuations 
and  limitations  due  to  bad  weather.  However,  the  increasing  congestion 
of  the  electro-magnetic  spectrum  has  increased  interest  in  the  use  of 
optical  frequencies  for  situations  in  which  mobility,  geographical 
constraints  or  the  desire  to  broadcast  to  a  number  of  users  precludes 
the  use  of  cabled  connections. 

Off-axis  Optical  Communication 

This  study  will  concentrate  on  systems  that  rely  on  the  atmospheric 
scattering  to  establish  over-the-horizon  communications  or  non-line-of- 
sight  broadcast  capabilities.  A  number  of  authors  have  considered  such 
systems  [1-4].  Typical  geometries  for  off-axis  communication  systems  are 
shown  in  Figure  1.  The  complex  geometry  of  the  off-axis  link  atmospheric 
scattering  dictates  that  the  propagation  of  radiation  from  transmitter 
to  receiver  will  usually  be  modeled  in  a  computer  program.  In  this 
paper  a  computer  code  to  analyze  the  performance  of  off-axis  communica¬ 
tion  receivers  will  be  developed.  This  code  will  interface  with  existing 
propagation  programs.  Analog  communication  will  be  discussed  briefly, 
but  the  major  emphasis  will  be  on  analyzing  the  performance  of  digital 
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systems . 

A  block  diagram  of  an  off-axis  optical  communication  system  is 
shown  in  Figure  2.  The  information  is  used  to  modulate  an  optical 
source.  The  transmitter  antenna  couples  the  source  power  into  the 
atmospheric  channel.  Optical  antennas  are  basically  telescopes. 
Similarly,  the  receiver  antenna  couples  the  atmospheric  channel  to  the 
receiver  detector.  The  characteristics  of  the  optical  antennas, 
particularly  the  transmitter  beam  divergence  and  receiver  field  of  view, 
will  greatly  influence  the  nature  of  the  atmospheric  propagation  by 
determining  the  size  of  the  scattering  volume. 

The  receiver  predetection  processing  may  include  an  optical 
filter  to  limit  the  out-of-band  background  radiation  or  optical 
processing  to  separate  different  polarization  or  frequency  components 
of  the  received  field  into  different  detectors.  (Heterodyne  receivers, 
the  predetection  mixing  of  the  received  field  with  a  local  oscillator 
laser,  will  not  be  considered  for  reasons  discussed  in  Chapter  Two.) 

The  detector  converts  the  optical  signals  into  electrical  signals. 
Finally,  the  post-detection  processing  demodulates  or  decodes  the 
electrical  signal  to  extract  the  desired  information. 

The  off-axis  optical  receiver  problem  can  be  separated  into  a 
propagation  problem  and  a  performance  problem.  The  dividing  line  will 
be  the  detector  surface.  The  optical  power  incident  on  the  receiver 
detector  will  be  a  function  of  the  receiver  collecting  optics  area  and 
field  of  view,  as  well  as  the  transmitter  power,  beam  divergence,  modula- 


Figure  2  Off-axis  Optical  Communication  System 
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tion,  the  link  geometry  and  the  atmospheric  scattering.  In  general,  this 
waveform  will  suffer  both  attenuation  and  time  dispersion  during  propaga¬ 
tion.  Receiver  performance  will  be  limited  by  the  optical  power  waveform 
incident  on  the  detector,  the  collected  background  radiation  and  the 
receiver  parameters  that  specify  the  quantity  and  nature  of  the  detector 
noise.  Optical  receivers  exhibit  fundamentally  different  noise 
character  from  radio  receivers  due  to  quantum  effects.  Quantum  effects 
are  important  at  optical  frequencies  because  the  photon  energy  greatly 
exceeds  the  thermal  agitation. 

Preview 

The  formulation  of  the  performance  analysis  problem  will  be 
developed  in  Chapter  Two.  A  statistical  model  of  the  detection 
process  will  be  presented  and  assumptions  about  the  nature  of  the  signal 
incident  on  the  detector  will  be  explored.  In  Chapter  Three  a  bound 
on  the  performance  of  digital  receivers  based  on  the  Bhattacharyya 
distance  will  be  developed.  It  will  be  shown  that  the  bound  provided 
by  the  Bhattacharyya  distance  is  a  general,  yet  relatively  simple  to 
calculate,  bound  that  is  amenable  to  computer  implementation.  The 
algorithm  for  such  a  computer  implementation  will  be  outlined.  A  FORTRAN 
computer  routine  based  on  the  results  of  Chapter  Three  appears  in  the 
Appendix. 
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CHAPTER  TWO 
PROBLEM  FORMULATION 

In  this  chapter  the  background  and  restrictions  of  the  problem 
formulation  will  be  developed.  These  can  be  roughly  divided  into  two 
areas:  the  detector  noise  model  and  assumptions  about  the  interface 
between  the  propagation  and  performance  analysis. 

Detector  Noise  Mechanisms 

All  current  devices  for  converting  optical  signals  into  electric 
signals  involve  energy  measurement.  A  quantum  of  optical  energy,  the 
photon,  is  absorbed  and  a  charge  carrier  generated.  Thus,  photodetectors 
respond  only  to  the  power,  or  intensity,  of  the  optical  signal  rather 
than  to  the  electromagnetic  field  itself.  The  power  is  proportional  to 
the  rate  of  photo-absorption. 

The  principle  detectors  for  use  in  optical  communication 
receivers  are  photomultiplier  tubes,  semiconductor  photodiodes  and 
avalanche  photodiodes.  While  there  are  important  physical  differences 
between  these  devices,  it  is  possible  to  develop  a  single  statistical 
model  which  can,  by  appropriate  selection  of  parameters,  describe  the 
behavior  of  any  of  the  above  detectors.  The  output  current  of  the 
photodetector  may  be  modeled  as 

i(t)  =  [z  egi5(t-r1)  +  i T( t ) ]  *  h(t) 

where  t.  are  the  event  times  of  carrier  generation,  e  the  charge  on  the 
electron,  g^  the  detector  gain  for  each  ohoton  detection,  iy  a  noise 
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current  of  thermal  origin  and  h(t)  the  impulse  response  of  the  post¬ 
detection  amplifier  or  load  resistor  network.  It  is  assumed  that  the 
impulse  response  of  the  detector  is  faster  than  that  of  the  following 
electronics.  A  block  diagram  of  a  photodetector  is  shown  in  Figure  3. 

The  generation  of  carriers  can  be  modeled  as  a  Conditional 
Inhomogeneous  Poisson  process,  N(t),  with  rate  parameter  proportional 
to  the  instantaneous  signal  plus  background  power  incident  or.  the 
detector,  Pg(t)  and  Pg  respectively.  The  proportionality  constant  a 
is  n/hv,  where  hv  is  the  photon  energy  at  optical  frequency  v  and  n  is 
the  quantum  efficiency  of  the  detector  --  essentially  the  probability 
a  photon  will  generate  a  carrier.  The  discrete  nature  of  carrier 
generation  gives  rise  to  shot  noise  in  low  light  levels.  Additional 
shot  noise  results  from  spontaneously  generated  charge  carriers  referred 
to  as  the  dark  current.  These  emissions  occur  at  random  with  average 
rate  aPp,  where  PD  is  a  fictitious  power  called  the  dark  power.  Though 
they  arise  from  physically  different  sources,  it  is  convenient  to  lump 
Pg  and  PQ  together  into  an  equivalent  noise  power,  PN. 

In  photomultipliers  and  avalanche  photodiodes,  the  charge  carriers 

generated  by  photo-absorption  undergo  a  current  multiplication  within 

the  device.  The  initial  charge  carriers  are  accelerated  by  an  electric 

field  creating  additional  carriers  as  they  collide  with  the  photodetector 

material.  These  new  carriers  in  turn  create  more  carriers  in  a  similar 

fashion.  The  gain  for  each  carrier  created  by  photo-absorption  is 

random.  These  random  gains  may  be  modeled  as  independent,  identically 

2+x 

distributed  random  variables  of  mean  value  G  and  second  moment  G 


gure  3  Optical  Receiver  floisE  Generat 


PHOTODETECTOR 


The  quantity  Gx  is  referred  to  as  the  excess  noise  factor,  F.  The 
value  of  x  is  dependent  on  the  particular  device.  For  photomultipliers 
the  value  of  x  is  small  and  the  gain  may  be  considered  constant.  The 
excess  noise  in  avalanche  photodiodes  is  significant  enough  that  it 
must  be  modeled.  In  contrast  to  photomultipliers  and  avalanche 
photodiodes,  photodiodes  have  unity  gain. 

To  these  current  pulses  is  added  a  thermal  noise  ij(t).  This 
current  is  a  wi de-band  noise  associated  with  any  internal  detector 
resistance,  the  load  resistor,  or  the  front-end  noise  of  any  following 
electronics.  It  is  reasonably  modelled  as  a  white  Gaussian  random  process 
with  zero  mean  and  bilateral  spectral  density,  NQ/2,  of  2kTk/Re>  Here 
k  is  Boltzmann’s  constant,  T^  the  absolute  temperature  and  Rg  the 
effective  load  resistance.  The  thermal  noise  will  be  especially  signifi¬ 
cant  for  detectors  that  do  not  have  internal  gain. 

One  may  define  a  signal-to-noise  ratio,  SNR,  as  the  squared 

\ 

average  expected  value  of  the  signal  component  of  i(t)  divided  by 
the  variance  of  i(t).  It  can  be  shown  [5]  that 

(nPs>2 _ 

[Fa(Ps+PN)  +  No/2(eG)2]2W 

where  W  is  the  bandwidth  of  the  following  electronics.  The  first  term 
of  the  denominator  is  the  variance  due  to  shot  noise  while  the  second 
term  is  due  to  the  thermal  noise.  Notice  that  if  the  gain  is  large  and 
constant  the  effects  of  thermal  noise  can  be  neglected.  This  is  the 


SNR  = 


VARF i ft. 
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shot  noise  limit.  However,  if  gain  fluctuations  exist,  F  will  be  a 
function  of  G.  Thus,  some  optimal  mean  gain  value  will  exist  which 
maximizes  the  signal-to-noise  ratio  by  balancing  the  shot  noise 
variance  and  the  thermal  noise  variance.  Without  internal  gain  or 
cryogenic  cooling  the  thermal  noise  will  usually  swamp  out  the  shot  noise. 
This  is  the  thermal  noise  limit.  The  choice  of  photodetector  -- 
photomultiplier,  photodiode  or  avalanche  photodiode  --  will  often  depend 
on  what  type  is  available  at  the  optical  frequency  at  which  one  is 
working. 

Photodetector  Output  Statistics 

While  signal-to-noise  ratio  expressions  are  appropriate  for 
analyzing  the  performance  of  analog  communication  systems,  the 
performance  analysis  for  digital  communication  receivers  requires  a 
more  complete  knowledge  of  the  detector  output  statistics.  The  digital 
receiver  will  apply  a  decision  rule  to  the  received  signal  to  determine 
which  of  a  finite  number  of  signals,  or  characters,  was  most  likely  sent. 
The  performance  measure  of  interest  is  the  probability  of  making  an 
error  in  decoding.  Determining  the  probability  of  error,  Pr(e),  requires 
knowledge  of  the  probability  distribution  of  the  detector  output  given 
one  knows  which  character  was  sent. 

If  there  is  no  excess  noise  and  the  average  shot  noise  variance, 
a( P$+P|\|) *  greatly  exceeds  (by  a  factor  of  ten  or  more)  the  thermal  noise 
variance,  NQ/2(eG)  ,  the  Poisson  counting  statistics  will  dominate.  The 
detector  output  current  pulses  can  be  modeled  as  a  Conditional  Inhomoge- 
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neous  Poisson  process  with  rate  parameter  a[Ps(t)+Pjj]. 

If  the  thermal  noise  variance  greatly  exceeds  (again  by  a 
factor  of  ten)  the  average  shot  and  excess  noise  variance,  aF(P^+PN), 
the  Gaussian  statistics  of  the  thermal  noise  will  dominate.  The 
detector  output  current  may  then  be  modeled  as  a  Gaussian  random  process 
with  mean  value  eGa[P^(t)+PN]  and  variance  NQ/2 . 

If  the  receiver  noise  is  a  combination  of  shot  and  thermal  noise, 
finding  the  underlying  statistics  of  the  detector  output  becomes  quite 
complicated,  if  not  intractable.  The  approach  used  in  this  study  has 
been  to  model  the  shot  noise  as  a  Gaussian  process  of  the  same  variance 
and  then  alternatively  to  model  the  thermal  noise  as  a  Poisson  process, 
again  on  a  second  moment  basis.  If  the  performance  predicted  by  both 
analyses  are  numerically  close,  it  can  reasonably  be  assumed  that  the 

t 

true  performance  is  also  numerically  close.  There  are  no  guarantees  on 
how  close  however! 

Finding  the  underlying  statistics  for  the  compound  Poisson 
process  resulting  from  random  gain  fluctuations  is  a  more  tractable 
problem  [6],  However,  receivers  with  gain  fluctuations  will  most  likely 
utilize  an  optimal  mean  gain  to  maximize  the  signal-to-noise  ratio  by 
balancing  the  shot  and  thermal  noise  variance  terms.  Thus,  the 
approach  used  here  is  to  again  model  the  shot  and  excess  noise  as  a 
Gaussian  process  and  then  the  thermal  and  excess  noise  as  a  Poisson 
process  to  achieve  a  'handle'  on  the  performance. 


Deterministic  Power  Assumption 


The  preceding  discussion  has  assumed  that  the  optical  power 
incident  on  the  detector  is  known.  In  reality  the  power  waveform  will 
be  the  output  of  a  random  atmospheric  channel  and  thus  a  stochastic 
process.  It  will  be  shown  in  this  section  that  for  most  off-axis 
optical  communication  systems  the  receiver  statistics  will  behave  as  if 
the  detector  were  illuminated  by  a  deterministic  signal  equal  to  the 
mean  value  of  the  stochastic  power  waveform  actually  illuminating  it. 

The  signal  from  an  off-axis  scatter  channel  can  be  thought  of 
as  a  distributed  incoherent  source,  much  the  same  way  as  background 
light  is  modeled.  The  off-axis  receiver  will,  within  constraints,  open 
the  field  of  view  to  take  in  as  much  of  the  extended  source  as  possible. 

It  is  possible  to  think  of  the  receiver  as  the  sum  of  an 

array  of  diffraction  limited  field  of  view  receivers,  arranged  to  make 

up  the  entire  field  of  view.  Due  to  the  short  wavelength  of  optical 

frequencies,  even  modest  fields  of  view  will  contain  on  the  order  of 
6  8 

10  to  10  diffraction  limited  fields  of  view.  Each  diffraction 
limited  field  of  view  is  looking  at  a  different  part  of  the  scattering 
atmosphere  and  the  stochastic  intensity  fields  incident  on  each  can  be 
assumed  to  be  statistically  independent. 

If  the  extended  source  approximately  fills  the  receiver  field 
of  view,  to  first  approximation,  the  total  average  received  signal  power 
may  be  thought  of  as  equally  divided  among  the  diffraction  limited  fields 
of  view.  (If  the  extended  signal  source  does  not  fill  the  field  of 


view,  the  field  of  view  could  be  made  smaller  thereby  decreasing  the 
collected  background  at  no  loss  of  signal.)  Because  of  the  large 
number  of  diffraction  limited  fields  of  view,  the  signal  plus  background 
power  per  diffraction  limited  field  of  view  will  be  small.  In  fact, 
for  most  off-axis  receivers  an  average  of  less  than  one  photon  count 
will  be  generated  per  diffraction  limited  field  of  view  over  the 
counting  interval  of  the  receiver.  Kennedy  has  called  channels  which 
satisfy  this  supposition  weakly  coherent  quantum  channels  [7]. 

The  representation  theorem  for  doubly  stochastic  Poisson 
processes  (that  is  a  Poisson  process  in  which  the  rate  parameter  is  also 
stochastic)  states  that  the  statistics  of  a  doubly  stochastic  Poisson 
process  will  behave  as  a  conditional  Poisson  process  with  rate  parameter 
equal  to  the  minimum  mean  square  error  estimate  of  the  stochastic  rate 
parameter  [8],  The  minimum  mean  square  estimate  is  based  on  all  previous 
events  and  any  conditioning.  If  the  probability  of  getting  one  or  more 
counts  or  events  .is  small,  the  minimum  mean  square  estimate  is  simply 
the  expected  value  of  the  rate  parameter  given  any  conditioning.  Since 
each  of  the  diffraction  limited  fields  of  view  is  independent,  the 
output  of  the  entire  detector  is  a  Poisson  process  with  rate  parameter 
equal  to  the  sum  of  the  individual  rate  parameters.  Thus,  to  the  extent 
that  the  off-axis  scattering  channel  is  weakly  coherent,  performance 
analysis  will  require  only  the  expected  value  of  the  received  power 
waveform  from  the  propagation  analysis. 

To  see  that  this  is  all  reasonable,  consider  a  not  atypical 
off-axis  receiver  with  10  cm  diameter  optics,  5°  circular  field  of 
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view  (about  90  mR) ,  and  optical  filter  bandwidth  of  10  y  (BQ),  a 
counting  interval  of  1  y  sec,  and  operating  at  a  wavelength  of  1  micron. 
The  diffraction  limited  field  of  view  is 


nd  = 


— 5 — 

ird  /4 


=  10"10  SR 


While  the  total  field  of  view  is 
fi  =  ir(.09)2  =  .02  SR 

O 

or  about  10  diffraction  limited  fields  of  view.  The  background  power 

per  diffraction  limited  field  of  view  is  NgBg  where  Ng  is  the  power 

density  of  the  background  noise.  Since  Ng  is  typically  on  the  order 
-25 

of  10  W  y  for  atmospheric  operation  [9],  the  average  number  of 

background  counts  per  diffraction  limited  field  of  view  over  the 

-12 

counting  internal  (aNgBgT)  is  on  the  order  of  10"  .  Thus,  this 

O 

receiver  can  operate  with  about  10  signal  photon  counts  and  still  be 
in  the  low  photon  coherence  regime.  For  this  receiver  this  corresponds 
to  about  10  y  watts  of  signal  power! 

Fading  Due  to  Turbulence 

If  the  atmospheric  scattering  is  primarily  single  scatter  or 
the  off-axis  receiver  is  not  immersed  in  the  scattering  medium,  one 
must  also  consider  the  effects  of  atmospheric  turbulence  in  the  clear 
atmosphere  between  the  scattering  volume  and  the  receiver.  Atmospheric 
turbulence  refers  to  the  slight  atmospheric  refractive  index  fluctua¬ 
tions  due  to  uneven  heating.  Such  refractive  index  fluctuations  act 
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as  a  random  lens.  When  random  lensing  results  in  destructive  inter¬ 
ference  in  the  receiver  aperture,  the  random  signal  losses  are  known 
as  fading. 

As  shown  in  Figure  4,  the  scattering  volume  can  be  viewed  as 

a  distributed  incoherent  source  localized  to  a  plane  parallel  to  the 

receiver  aperture.  This  effective  transmitter  is  located  a  distance  L 

from  the  receiver.  Light  emitted  from  points  in  this  plane  separated 

by  a  distance  greater  than  the  transmitter  coherence  distance,  p'  , 

o 

will  pass  through  substantially  different  atmosphere  and  arrive  at 
the  receiver  with  statistically  independent  random  fading.  One  may 
thus  define  a  transmitter  coherence  cell  with  area  (p'Q)  /4  .  As  long 
as  the  effective  transmitter  contains  many  (one  hundred  or  more) 
coherence  cells,  the  effects  of  fading  will  tend  to  'average  out'  over 
the  statistically  independent  channels. 

In  a  similar  manner,  light  arriving  at  points  in  the  receiver 
aperture  separated  by  greater  than  the  receiver  coherence  distance,  pQ  , 
will  have  statistically  independent  fading.  Thus,  if  there  are  many 

receiver  coherence  cells  each  of  area(p  )  /4  in  the  receiver  aperture, 

0 

the  effects  of  fading  will  again  be  averaged  out. 

For  a  path  with  uniform  turbulence 

p'  =  p  =  [1.09  (2r/X)2  Cn2  L]_3/5 
0  o 

2 

where  Cn  is  the  atmospheric  structure  constant  [10]. 

In  addition  to  either  of  the  above  effects,  the  receiver  field 


of  view  must  be  large  enough  to  compensate  for  random  angle  of  arrival 


Figure  4  Scattering  Volume  Viewed  as  Effective  Source 
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variations  caused  by  turbulence.  Typically  the  angular  spectrum  of 
turbulence  is  on  the  order  of  tenths  of  mi  Hi  radians  so  this  condition 
will  always  be  met  for  a  receiver  in  a  scattering  environment. 

Again  assuming  that  the  scattering  volume  approximately  fills 
the  receiver  field  of  view,  the  area  of  the  effective  transmitter  may 
be  calculated  from  the  receiver  field  of  view  and  the  distance  to  the 
scattering  volume.  As  po  is  typically  on  the  order  of  centimeters  to 
meters,  the  complete  transmitter  aperture  averaging  condition  will 
almost  always  be  met. 

Heterodyne  Receivers 

Transmitter  aperture  averaging  to  ignore  the  effects  of  turbulence 
relies  on  the  receiver  having  a  large  field  of  view  and  the  weakly 
coherent  channel  assumption  implies  that  a  diffraction  limited  field  of 
view  will  not  collect  much  power.  Yet,  heterodyne  receivers  are 
restricted  to  extracting  information  from  a  diffraction  limited  field 
of  view  by  local  oscillator  laser  mixing  requirements.  Heterodyne 
reception  thus  seems  impractical  for  off-axis  receivers. 

One  could  consider  an  array  of  heterodyne  receivers  each  with 
diffraction  limited  field  of  view  arranged  to  make  up  a  large  field  of 
view.  This  has  the  added  complication  of  deciding  how  to  optimally 
combine  and  process  the  individual  detector  outputs  which  is  essentially 
decided  for  us  in  a  direct  detection  receiver.  Seeking  to  avoid  this 
added  complication  as  well  as  considering  the  practical  difficulties 

C 

of  building  such  an  array,  (on  the  order  of  10  diffraction  limited 


fields  of  view),  this  study  was  limited  to  direct  detection  receivers. 

Having  laid  the  groundwork  for  communication  in  off-axis 
scattering  channels,  the  next  chapter  will  turn  toward  quantifying 
the  off-axis  receiver  performance  for  digital  signaling. 


26 


CHAPTER  THREE 

THE  BHATTACHARYYA  DISTANCE 

The  digital  communication  receiver  will  implement  a  decision  rule 
on  the  detector  output  to  determine  which  of  a  finite  number  of  waveforms 
was  most  likely  sent.  In  the  real  world  there  is  always  a  probability 
that  the  signal  will  be  so  noisy  that  the  receiver  will  make  a  mistake  in 
decoding.  The  probability  of  error,  Pr(e),  may  be  obtained  by  integrating 
the  probability  distribution  of  the  received  signal,  given  one  knows 
what  was  sent,  over  the  region  on  the  'wrong'  side  of  the  decision  rule. 

In  general  exact  expressions  for  Pr(e)  are  difficult  to  obtain.  Often  it 
will  be  necessary  to  settle  for  bounds  on  the  probability  of  error.  In 
this  chapter  the  bound  provided  by  the  Bhattacharyya  distance  will  be 
explored.  Binary  one-shot  communication  will  be  considered.  The  waveform 
for  a  single  bit  (binary  one  or  zero)  is  sent  and  the  receiver  makes  a 
decision  on  a  bit-by-bit  basis. 

Bound  Provided  by  the  Bhattacharyaa  Distance 

The  Bhattacharyya  distance  is  defined: 

B  =  -in  /"  /  PxjH  (x|H0)  Px | ^ x ! H i )  dx  (3.1) 

The  underbar  denotes  a  vector  and  Px|H.(*JHi)  1S  the  probability 
distribution  of  the  vector  x  conditioned  on  hypothesis  H^ . 

Kailath  [11]  has  shown  that  for  equally  likely  hypotheses  the 


Bhattacharyya  distance  may  be  used  to  provide  upper  and  lower  bounds  on 
the  probability  of  error  (independent  of  the  underlying  statistics). 


J  e‘2B  <  Pr(e)  <  \  e'B  (3.2) 

Notice  that  the  bound  provided  by  the  Bhattacharyya  distance 
does  not  involve  the  decision  rule.  Implicit  in  Kailath's  derivation  is 
the  use  of  a  decision  rule  that  minimizes  the  probability  of  error.  Thus, 
the  bound  based  on  the  Bhattacharyya  distance  provides  a  bench  mark 
performance  based  on  the  shape  and  amplitude  of  the  received  signal.  The 
lower  bound  is  the  absolute  best  performance  one  might  achieve  given 
the  received  power  signal  set.  The  upper  bound  is  the  worst  one  can  do 
assuming  the  receiver  optimally  processes  the  detector  output. 

The  bound  provided  by  the  Bhattacharyya  distance  is  closely 
related  to  the  Chernoff  bound  and  the  Maximum  Aposteriori  decision  rule 
(MAP  rule).  The  MAP  rule  is  the  minimum  probability  of  error  rule.  It 
can  be  shown  that  the  Chernoff  bound  is  the  exponentially  tightest 
bound  on  the  probability  of  error  [12].  For  equally  likely  hypotheses 
the  MAP  rule  reduces  to  the  Maximum  Likelihood  decision  rule.  The 
likelihood  ratio 


l(x) 


”xlH, 

Px|H0(i|Ho> 


(3.3) 


is  evaluated  at  the  received  value  of  x.  If  L(x.)  is  greater  than  one, 
decide  one  was  sent;  if  l(><)  is  less  than  one,  decide  zero  was  sent. 
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Let  ^  =  in  L(x).  Assuming  that  both  types  of  errors  occur  with 
equal  probability,  the  probability  of  error  is  the  probability  is  greater 
than  0  given  one  knows  zerowassent.  The  Chernoff  bound  on  this  probability 
is  given  by 

Pr{e)  =  Pr(£>0!Ho)  <  \  E  [es^HQ]  (3.4) 

There  is  an  optimal  value  of  s  for  which  the  bound  is  minimized,  though 
the  bound  is  valid  for  non-optima!  values  of  s. 

An  alternative  form  of  the  Bhattacharyya  distance  is 

B  =  ~ln  Loo  ^xlH  ^H0)  px ! H  ^JHi")'d2L  *  ECL(x)1/2|H0]  (3.5) 

— '  o  —  1 

The  upper  bound  provided  by  the  Bhattacharyya  distance  may  be  written 

}e-B4E[Ux)|H0]4[e1/2t"  Ui,|H0]  (3.6) 

Thus,  the  upper  bound  provided  by  the  Bhattacharyya  distance  is  the 
Chernoff  bound  for  the  MAP  decision  rule  evaluated  at  the  possibly  sub- 
optimal  value  of  s=l/2. 

The  Chernoff  bound  provides  a  tighter  upper  bound  on  the 
probability  of  error  than  that  provided  by  the  Bhattacharyya  distance. 
However,  the  general  and  simple  nature  of  the  bound  provided  by  the 
Bhattacharyya  distance  (no  need  to  explicitly  find  the  decision  rule  or 
optimize  on  s)  as  well  as  the  fact  that  it  provides  a  lower  bound  make 
the  Bhattacharyya  distance  measure  attractive  for  bench  mark  analysis. 
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In  the  remainder  of  this  chapter  the  Bhattacharyya  distance  for 
the  cases  of  Poisson  processes,  Gaussian  processes,  and  Gaussian 
processes  with  time  varying  variance  will  be  developed.  The  latter  will 
be  important  when  modeling  the  time  varying  shot  noise  as  a  Gaussian 
process.  It  will  be  shown  how  the  Bhattacharyya  distance  results  may  be 
applied  to  a  computer  algorithm  to  calculate  the  probability  of  bit  error 
rate  for  optical  communication  systems.  Finally,  the  Bhattacharyya 
distance  for  twin  channel  processes  will  be  developed.  Such  receivers 
might  be  used  in  frequency  shift  keying  systems,  polarization  modulation 
systems  or  any  system  where  predetection  processing  separates  the 
received  field  between  two  detectors. 


Inhomogeneous  Poisson  Processes 

For  a  Poisson  process  the  probability  distribution  for  the 
unordered  event  times  on  an  interval  T  is 


•tn,N|H^t1  — tn*n!h)  =Jq  nT  VTj)ExpH%(t,dt:,6(N'n) 


(3.7) 


where  x^(t)  is  the  rate  function  under  the  hypothesis  that  i  is  sent. 

The  Bhattacharyya  distance  between  two  Poisson  processes  may 
be  found  by  substituting  in  the  definition  for  the  Bhattacharyya 
distance  [Eq.(3.1)]. 
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8  =  -*n  L  /:-/:|X  HI  .^0(Ti)Exp[-/\o(t)dt]6(N-n). 


I  =T  n  ^-1  (T -)Exp[-/T  x.(t)dt]fi(N-n) 
m=o  j=l  1  J  0  1 


/T  XQ(t)dt  +  /T  X-j  ( t)dt  -Jin  l  fjj- 


1/2 


dx-j . .  .d-r^dN 


n=o 


=  \  /0^X0^+X1  (^l^t-ln  \  Jo  Ao(t)x-|  (t)  dtj 
*  \  /^CxQ(t)+X1  (t)]dt-nn  Exp[/^A0(t)x1(t)  dtj 

=  1  nxo(t)_2/XoU)xlU)  +  xi^dt 
B  s  dt  (3-8) 


Gaussian  Random  Processes 

The  concept  of  the  Bhattacharyya  distance  may  be  extended  to 
continuous  time  processes,  of  duration  T,  by  considering  *  ector  of 
time  samples  of  the  process  and  then  taking  the  limit  a‘  the  number  of 
samples  approaches  infinity.  Defining  x  as  a  vector  of  time  samples  of 
the  process  x(t). 
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x  = 


x(t,) 


x(tN)  J 


and 


x(tj)  x(t)dt 


5  =  T/N 


The  probability  density  for  multi var  te  Gaussian  random 
variable  is 


Expt-tx-ni,  fft,  (x-m,  )/2] 

(2,)N'W'2(Af> 


(3.9) 


where  A.,  is  the  covariance  matrix  of  x  under  hypothesis  i  and  is  the 
mean  of  x  under  hypothesis  i.  Notice  that 


ECxfHi3 


m^(t^)" 


*i<v44V<(t)dt 


where  m^(t)  is  the  mean  of  the  process  under  hypothesis  i. 

The  Bhattacharyya  distance  between  two  continuous  time  Gaussian 


processes  is  then 
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-  Exp[-(x-m  )TA  (x-mJ/4] 

=  1im  /  - KT77  y/A  — - 

N-*»  ®  ( 2tt)N/2  det1/4(A  ) 


ExpfXx-ir^  )TA-j  (x-m^  )/4] 
det1/4(A1) 


This  may  be  rewitten  as  the  convolution  of  Gaussian  distributions 


(2.)Vd*1'2<A0)drt1'*U]> 

(2a)"'2  det'/4(A0)  det,/4(A,) 


=  -in 


ExpC-tx-rr^)1  (2A0)_1  (x-mQ)/2]  ExpHx-n^  )T  (2A-j  ^(x-^ )/2] 


(2tt)n/2  det1/2(2A0){2ir)N/2  det1/Z(2A1) 
2N/2det1/4(A0)det1/4(A1) 


(3.10) 


B  *  -*n  lim  ~~^I7^7TT7~T 
N-x»  det  (VA1) 


Exp[-(rn0-m1  )T(AQ+A1  )_1  (mQ-HLi  )/4] 

If  the  time  samples  are  statistically  independent  (white)  and  of 
2 

uniform  variance  A0sAj=a  I,  where  I  is  the  identity  matrix.  Eq.(3.9) 
may  be  simplified  as  follows: 


B  =  -in 


«N/2.  *1/2/  2t>  «  2 

N/?d  1/2 V  ExpH  Cm  ( 1 1 )  -m-.  ( t  - )  ]  /8a 

N—  2N/^det  '  4{o^I)  j=l  0  J  1  3 


2  ,n  2- 


B  =  /J  [m0(t)-m-]  (t)]2dt 

8o 


(3.11 


Consider  now  a  Gaussian  process  that  is  still  white  but  with  a 


variance  that  changes  from  time  sample  to  time  sample  and  under  the 
hypothesis.  That  is 


A. 


l 


^  V 


( i*i  >  =  1  dt 

1  1  6  (j-l)6  1 


The  Bhattacharyya  distance  expression  may  be  found  by  substituting 
in  Eq .(3.9) 


B  =  -nn  lim 
N-~ 


M  N  N 

r  n  a  At.)  n  aJt, 


1V2 


H  Ccr  2  (t.)+c,2  (ti)l 
j-1  °  2  '  2 


Exp 


N  [mgCtp-m^tj)]2 

[j-1  ^(t.J+^t.)], 


1 


N 


7lim  l 
2  j-1 


[m  (t.J-iMt.)]2 

°o2(tj)+0l2(t.1) 

a  o*  Jen 

2ao(tj)al(tj) 

B  = 


fT 

[m0(t)-mi(t)32 

aQ  ( t)+a  2  (t) 

• 

0 

- h - — 5 —  +  £.  n 

2[ao2(t)+a2(t)] 

J2ctqC  t)  a-j  ( t )  . 

dt 


(3.12) 


Application  to  Optical  Communication 

The  application  to  optical  communication  is  now  clear.  The 
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detector  output  for  direct  detection  optical  receivers  in  which  shot 
noise  dominates  is  modeled  as  an  Inhomogeneous  Poisson  process  with 
rate  function  A.j(t)=a(P^(t)+P^)  given  i  was  sent.  The  received  signal 
power  waveform  given  i  was  sent  is  P^(t).  Substituting  in  Eq.(3.7) 
to  evaluate  the  Bhattacharyya  distance 

B  =  \  /Ja(/  PS0(t)+PN  -  /  PSi (t:)+PN)2  dt  (3.13) 

The  detector  output  of  thermal  noi>^  limited  receivers  is  modeled 
as  a  Gaussian  random  process  with  mean  m^ (t)=eGa[Psi (t)+PN]  and  variance 
Nq/2.  The  Bhattacharyya  distance  is  evaluated  using  Eq. (3.10) . 

B  =  8NG/2  ”  4  tPS0(t)-PSl{t)]  dt  (3.14) 

o 

If  the  receiver  noise  is  a  combination  of  shot,  thermal  or  excess 
noise  the  detector  output  will  be  modeled  as  a  Poisson  process,  then 
as  a  Gaussian  process  and  the  performance  compared. 

Modeling  the  excess  noise  and  thermal  noise  as  multiplicative 
and  additive  increases,  respectively,  in  the  variance  of  the  Poisson 
process,  the  rate  function  is 

N  /  2 

X.(t)  =  Fot(Ps.(t)+PN)  +-2—2  (3.15) 

1  51  "  (eGT 

Notice  that  the  thermal  noise  must  be  divided  by  the  square  of  the 
multiplicative  gain  to  refer  it  back  to  the  shot  noise  generation. 
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Defining 


PN  =  PN  + 


Nq/2 


Fa(eG)‘ 


(3.16) 


The  rate  function  may  be  rewritten 


Xi(t)  »  Fa[Ps.{t)  +  PN] 


(3.17) 


and  the  estimate  of  the  Bhattacharyya  distance  evaluated  using  Eq.(3.7). 


B  *  \  /T  «(/ P$0(t )+PN  -  /P$1(t)+PN)2  dt  (3.18) 

* 

Modeling  the  shot  and  excess  noise  as  an  increase  in  the 
variance  of  the  thermal  Gaussian  process 


nij(t)  =  eGc(Ps.(t)  +  PN)  (3.19) 

2  p 

a-(t)  =  F(eG)%(Psi(t)  +  PN)  +  Nq/2 
Again  defining  P^  as  in  Eq . ( 3 .15) 

a?(t)  -  F(eG)2  a  (P$iCt)  +  PN)  (3.20) 


The  Bhattacharyya  distance  is  approximated  using  Eq.(3.11),  the 
Bhattacharyya  distance  for  Gaussian  processes  with  time  varying 
variance. 


B 


°tpso^-psi™2 

- - - -  +£n 

2F[PSo(t)+ps1(t)+2PN] 


PSo(t>+Psl(t>+2PN 

^PSo^+PN^PS1  ^+PN^ 


dt 


(3.21) 
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Once  the  Bhattacharyya  distance  between  the  received  signal  aiven 
one  was  sent  and  the  signal  given  zero  was  sent  has  been  calculated,  the 
performance  may  be  evaluated  using  the  bounds  provided  by  Eq .(3.2) . 

The  received  power  waveforms  given  mark  and  space  will  usually 
be  supplied  by  a  propagation  computer  program  as  sampled  waveforms.  It 
is  natural  then  to  evaluate  the  integrals  involving  the  received 
power  in  Eqs.  (3.12),  (3.13),  (3.17),  and  (3.20)  using  a  numerical 
integration  technique.  Since  the  received  waveforms  will  usually 
be  supplied  as  sample  points  rather  than  functional  representations ,  one 
is  limited  to  numerical  integration  techniques  such  as  Simpson's  rule 
or  the  trapazoid  rule.  The  Appendix  describes  a  FORTRAN  computer 
program  subroutine  that  calculates  bounds  on  the  probability  o*  bit 
error  based  on  the  Bhattacharyya  distance  measure. 

Twin  Channel  Receivers 

Finally  consider  an  optical  communication  receiver  that  employs 
two  detectors,  each  monitoring  a  different  frequency,  polarization  or 
spatial  component  of  the  received  signal.  Such  a  receiver  will  have 
two  random  processes  available  to  it  in  making  a  decision.  The 
processes,  x(t)  and  y(t),  will  be  statistically  independent  since  the 
noise  mechanisms  between  the  detectors  can  be  assumed  to  be  independent. 

Px,*|Hi{£*lH1)  *  Px|H1(^Hi)  (3-22) 

The  Bhattacharyya  distance  is  then 
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8  =  ‘tn  L  L  J  px,i|H0li^lHo)  Hl' 

’  C  C  »i|Ho<ilHo>  PxlH0(i|Ho)  ' 

1/2 

px|H,(i|Hl>  pi|H,WHl)]  didI 

•*1 

,  » 

■■  8  *  -tn  C  ’,px|H0^lHo)  pi|H1(i'Hl)  d*  * 

(3.23) 

-*  C  ^JH  WrioT  Pl|H/ylhl}  d£ 

f 

i 

* 

l 

\  Each  term  of  the  above  expression  may  be  evaluated  using  the 

single  channel  results.  One  Is  even  able  to  consider  the  case  where 
one  detector  is  shot  noise  limited  and  the  other  thermal  noise 
limited.  The  performance  analysis  for  twin  channel  receivers  will 
require  four  waveforms  —  the  power  waveforms  incident  on  each  detector 


under  both  hypotheses  of  what  was  sent. 
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CHAPTER  FOUR 
SUMMARY 

The  bound  on  the  probability  of  error  provided  by  the 
Bhattacharyya  distance  is  a  general,  yet  relatively  simple  to 
evaluate, measure  of  the  performance  of  optical  communication  systems. 

The  Bhattacharyya  distance  is  applicable  to  any  intensity  modulated 
digital  signaling  format:  On-off,  pulse  position  modulation  or  phase 
or  frequency  shifting  of  a  sinusoidal  intensity  subcarrier.  To  the 
extent  that  the  propagation  analysis  models  the  distortion  of  the  wave¬ 
forms  during  propagation,  the  Bhattacharyya  distance  measure  will 
reflect  performance  degradation  due  to  this.  However,  it  should  be  noted 
that  as  developed  here  the  Bhattacharyya  distance  is  only  applicable 
to  the  one  shot  communication  problem.  Thus,  if  the  time  dispersion 
becomes  significant  enough  that  intersymbol  interference  results,  the 
Bhattacharyya  distance  will  not  account  for  the  performance  degradation. 

The  bench  mark  type  performance  measure  that  the  bound  provided 
by  the  Bhattacharyya  distance  supplies  is  appropriate  for  interfacing 
with  a  propagation  analysis.  By  calculating  upper  and  lower  bounds  on 
the  probability  of  error  assuming  optimal  processing,  the  Bhattacharyya 
distance  provides  a  quick  check  on  the  performance  that  could  be 
achieved  as  the  receiver  location,  link  geometry  or  atmospheric 
scattering  parameters  are  changed.  The  receiver  parameters  are  not 
that  crictical,  and  will  often  be  used  to  specify  the  general  type  of 
receiver  one  wishes  to  consider. 


Finally,  though  the  Bhattacharyya  distance  results  for  twin 
channel  receivers  were  not  explicitly  implemented  in  computer  code,  at 
such  time  as  propagation  programs  that  adequately  model  the  propagation 
of  the  various  polarization  or  frequency  components  of  the  field  become 
available,  the  extension  of  the  computer  code  to  twin  channel  receivers 
is  straightforward. 
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APPENDIX 

PROBABILITY  OF  ERROR  SUBROUTINE 

The  subroutine  ERROR  is  a  FORTRAN  program  to  calculate  upper 
and  lower  bounds  on  the  probability  of  bit  error  for  any  direct 
detection  optical  communication  receiver  for  which  the  power  waveform 
incident  on  the  detector  may  be  considered  non-stochastic.  The  probabil¬ 
ity  of  error  bounds  are  implemented  by  means  of  the  Bhattacharyya 
distance  measure. 

The  performance  bounds  are  based  on  the  received  power  wave¬ 
forms  given  mark  and  space.  Thus,  the  lower  bound  is  the  absolute  best 
performance  one  might  possibly  achieve  given  the  received  signal  set. 

The  upper  bound  is  the  worst  one  will  do  assuming  the  receiver  implements 
the  optimal  decison  rule  on  the  detector  output. 

The  inputs  are  passed  to  the  program  in  labeled  common.  The 
sampled  received  power  waveform  given  mark  and  the  received  waveform 
given  space  as  well  as  the  number  of  sample  points  and  the  bit  duration 
appear  in  the  common  WAVEFM.  The  number  of  sample  points  must  be  odd. 

The  pertinent  receiver  parameters  are  passed  in  the  common  RCVR.  Or 
it  may  be  more  convenient  to  insert  the  common  blocks  from  the  main 
program  that  contain  the  necessary  information.  The  labeled  common 
INTER  passes  data  to  the  external  Bhattacharyya  distance  functions. 

The  program  returns  as  arguments  the  upper  and  lower  bounds 
on  the  probability  of  bit  error  and  a  flag  indicating  whether  the 
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performance  is  (1)  shot  noise  limited,  (2)  thermal  noise  limited,  or 
(3)  a  combination  of  shot  and  thermal  noise.  If  the  receiver  noise  is 
a  combination  of  shot  and  thermal  or  excess  noise,  both  the  performance 
assuming  a  Poisson  model  and  the  performance  assuming  a  Gaussian 
model  are  returned  for  user  comparison. 

The  Bhattacharyya  distance  integrals  are  evaluated  using  Simpson's 
rule  for  integration.  To  the  extent  that  the  sample  points  adequately 
represent  the  waveform  in  a  piece-wise  sense,  Simpson's  rule  is 
accurate  enough. 

Following  is  a  flow  chart  and  program  listing  of  the  subroutine 


ERROR. 
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Flow  chart  of  subroutine  ERROR 


SUBROUTINE  ERROR 
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(\) 

V—XNFLA6  » 


CALL  SIMP 

„  JaeG)2 
8  8Nq/2 

r  2 

/ (Pso  (t)  - 

0 

5  e“2B  <  Pr  (e)  therm  <  J  e 


i  -a 


RETURN 


NFLAG *  I 


CALL 

T 

SIMP 

8*4  /  (VPsO^^Pf 
0 

«  *Vpslit)+pN  )“dt 

- u 
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Program  listing  of  subroutine  ERROR 
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— 

c . 

subroutine 

error ( nf lag , lobnd 1 ,upbnd1  , 

& 

lobnd2 ,upbnd2) 

c 

CALCULATE 

PROBABILITY  OF  BIT  ERROR 

c 

c 

INPUTS: 

c 

psO( i) 

-  SAMPLED  RCVD  SIGNAL  POWER 

c 

WAVEFORM  GIVEN  SPACE  (W) 

1  .  !  C 

psl ( i) 

-  SAMPLED  RCVD  SIGNAL  POWER 

f  c 

WAVEFORM  GIVEN  MARK  (W) 

:  -  c 

npts 

-  NUMBER  OF  SAMPLED  WAVEFORM 

.''•i  c 

POINTS.  NPTS  MUST  BE  ODD. 

c 

t 

-  BIT  TIME  INTERVAL  (S) 

c 

eta 

-  DETECTOR  QUANTUM  EFFICIENCY 

c 

g 

-  DETECTOR  GAIN 

‘  c 

f 

-  EXCESS  NOISE 

1-  c 

lambda 

-  OPTICAL  WAVELENGTH  (M) 

;  *  c 

enzero 

-  BILATERAL  SPECTRAL  DENSITY 

k-  m  c 

OF  THERMAL  NOISE  (J) 

;  "<  c 

pback 

-  BACKGROUND  POWER  (W) 

>■  i  e 

pdark 

-  EQV  POWER  THAT  GIVES  RISE 

c 

TO  DARK  CURRENT  (W) 

f  c 

?  c  C 

RETURN: 

:  c 

upbndl 

-  SHOT  NOISE  LIMITED  UPPER 

c 

BOUND  ON  PROBABILITY  OF  ERROR 

c 

lobnd 1 

-  SHOT  NOISE  LIMITED  LOWER 

c 

BOUND  ON  PROBABILITY  OF  ERROR 

c 

upbnd2 

-  THERMAL  NOISE  LIMITED  UPPER 

c 

BOUND  ON  PROBABILITY  OF  ERROR 

s  ‘  C  ■ 

lobnd2 

-  THERMAL  NOISE  LIMITED  LOWER 

c 

BOUND  ON  PROBABILITY  OF  ERROR 

c 

nf  lag 

-  PERFORMANCE  FLAG 

c 

1  -  SHOT  NOISE  LIMITED 

!  c 

2  -  THERMAL  NOISE  LIMITED 

c 

3  -  COMBINATION  OF  SHOT  AND 

c 

THERMAL  OR  EXCESS  NOISE 

c 

;  c 

INTERNAL  VARIABLES: 

c 

b 

-  BHATTACHARAYYA  DISTANCE 

c 

pnoise 

-  EFFECTIVE  NOISE  POWER  (W) 

c 

pave 

-  AVERAGE  RECEIVED  POWER  (W) 

c 

alpha 

-  OPTICAL  POWER  TO  AVERAGE 

c 

PHOTON  COUNTS 

c 

eg 

-  PHOTON  COUNTS  TO  CURRENT 

c 

common  /  wavefm  /  npts, t,psO(  1000)  ,ps1(  1000) 

common  /  rcvr  /  eta ,g , f, enzero , pback, pdark , 

& 

lambda 

common  /  inter  /  pnoise, alpha, eg, fnoise 
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c 

external  func 1 , func2 , func3 
real  lambda , lobnd 1 , lobnd2 
c 

alpha=eta*lambda/( 2 .998e8*6 ,626e-34 ) 
eg= 1 ,6e-19*g 
f  noi serf 
c 

pnol serpback+pdark 
c 

c  CALCULATE  AVERAGE  POWER 

paverO . 0 
do  10  isl ,npts 
paverpave+psl ( i)+ps0( i) 

10  continue 

paverO . 5*pave/npts+pnoise 
c 

c  THERMAL  NOISE  LIMITED? 

if  ( en zero/e g**2 .gt . 1 0 .0*f *alpha*pave) 

&  go  to  40 

c  EXCESS  NOISE? 

if  ( f .gt . 1 .0)  go  to  20 
c  SHOT  NOISE  LIMITED? 

if  ( alpha *pave.gt. 1 0 .0*enzero/eg**2) 

&  go  to  30 

c 

20  nflag=3 

pnoise=pnoise+enzero/( alpha*eg**2*f ) 

brO .5*f *simp( func 1 ) 

upbnd 1 rO .5*exp( -b ) 

lobnd 1 =0 .25*exp(-2.0*b) 

br0.5*simp( func 3) 

upbnd2r0 .5*exp( -b) 

Iobnd2r0 ,25*exp( -2. 0*b) 
return 
c 

30  nflagsl 

brO .5*simp( func 1 ) 
upbnd 1 rO  .  5*exp( -b) 
lobnd 1 r0.25*exp(-2.0*b) 
return 
c 

40  nflagr2 

brO. 125* ( alpha *eg)* *2* simp ( func2)/enzero 

upbnd 2r0 .5*exp( -b) 

Iobnd2r0.25*exp(-2.0*b) 

return 

end 


f?»  (}•  u« 


49 


c . 

function  simp(func) 
c 

c  SIMPSONS  RULE  INTEGRATION  OF 

c  FUNCTION  FUNC 

c 

common  /  wavefm  /  npts,t,psO(  1000)  ,ps1(  1000) 
double  precision  sum 
c 

sum=0 .0 

do  10  i=1 ,npts-2f2 
term=func ( i ) +4*f unc ( i+1 ) +f unc ( i+2) 
sum=sum+term 
10  continue 

simp=t*sum/( 3*(npts-1 ) ) 
return 
end 
c . 

function  func(i) 
c 

c  BHATACHARAYYA  DISTANCE  FUNCTIONS 

c 

common  /  wavefm  /  npts , t , p0( 1 000) , pi ( 1 000) 
common  /  inter  /  pn,a,e,f 
c 

c  POISSON  PROCESS 

entry  funcl(i) 

funcsa*( sqrt(p1 ( i ) +pn )-sqrt ( p0( i ) +pn) ) **2 
return 
c 

c  GAUSSIAN  PROCESS 

entry  func2(i) 
f unc=( pi (i)-p0(i))**2 
return 
c 

c  GAUSSIAN  PROCESS  -  TIME  VARYING  VARIANCE 

entry  func3(i) 
func=a*(p1( i)-pO( i)) **2/ 

(2.0#f*(p1( i)+pO( i)+2.0*pn))+ 
alog(  ( pi  (  i ) +p0( i) +2 ,0*pn )/ 

(2.0*sqrt((p1( i) +pn ) *( p0( i ) +pn ) ) ) ) 
return 
end 
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